Bonsoir a tous
je viens vers vous pour car je souhaiterais appliquer cette macro sur plusieur feuil de mon classeur qui sont tous identique en nombre de colonne et de ligne ainsi qu'au different emplacement.
j'avais penser de copier la macro plusieur fois pour chaque feuil mais je me demandais si il y avais pas une solution plus simple .
a savoir la macro se trouveras dans un usf affecter a un bouton
merci pour votre aide
je viens vers vous pour car je souhaiterais appliquer cette macro sur plusieur feuil de mon classeur qui sont tous identique en nombre de colonne et de ligne ainsi qu'au different emplacement.
j'avais penser de copier la macro plusieur fois pour chaque feuil mais je me demandais si il y avais pas une solution plus simple .
a savoir la macro se trouveras dans un usf affecter a un bouton
merci pour votre aide
Code:
Sub TEST()
Dim NBLigne As Integer
For NBLigne = 5 To Sheets("FORMATION2").Range("B65536").End(xlUp).Row
derlig = Sheets("CAV").Range("L1000").End(xlUp).Row + 1
'FORMATION1
If Cells(NBLigne, 9) < 10 Then
Sheets("CAV").Range("L" & derlig).Value = Range(Cells(NBLigne, 2), Cells(NBLigne, 2)).Value 'nom
Sheets("CAV").Range("M" & derlig).Value = Range(Cells(NBLigne, 3), Cells(NBLigne, 3)).Value 'prenom
Sheets("CAV").Range("N" & derlig).Value = Range(Cells(NBLigne, 4), Cells(NBLigne, 4)).Value 'service
Sheets("CAV").Range("O" & derlig).Value = Range(Cells(NBLigne, 9), Cells(NBLigne, 9)).Value 'NB jour restant
Sheets("CAV").Range("K" & derlig).Value = Range(Cells(NBLigne, 10), Cells(NBLigne, 10)).Value 'formation
End If
'fin de la condition
Next
End Sub