Bonjour,
A partir d'un tableau excel contenant des élements salariaux, je cherche à repérer les salariés ayant eu une promotion et à coller leur nom/prénom dans un autre onglet.
J'ai ce bout de code mais il me renvoie une belle erreur soit 1004 soit une erreur d'exécution 9.
Par ailleurs, je souhaite rajouter une difficulté. En fonction de sa catégorie (Ouvrier, ETAM, Cadre), je veux qu'il colle les éléments dans une autre colonne.
Je vous ermercie par avance pour votre aide.
Cordialement
Sub copiercoller()
Dim i As Integer
Dim y As Integer
i = 2
'Selection de l'onglet ou se situe la liste non triee
Sheets("Tab saisie" ).Select
'Une boucle va faire la copie tant qu'il y aura des noms dans la colonne
While (Range(9, i) <> "" )
If (Range(59, i) <> "" ) Then
Range(9, i).Select
'copie, sélection de la feuille et collage
Selection.Copy
Sheets("Synthèse DD" ).Select
y = 49
Do While (Range(1, y) <> "" )
y = y + 1
Loop
'Collage là où il faut
Range(1, y).Select
ActiveSheet.Paste
End If
Wend
End Sub