Bonjour à tous,
Je vous explique donc mon problème. A l'exécution d'une macro, j'aimerai que le code suivant ce copie dans une autre :
With Sheets("Nom_entré_précédemment") 'Feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 2 To NbrLig ' n° de la 1ere ligne de données
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("Matériel non conforme").Cells(NumLig, 1).Insert Shift:=xlDown
End If
Next
End With
Et à la place de "Nom_entré_précédemment", je veux que cela se change par un nom entré au préalable dans une ComboBox. J'espère que j'ai été assez clair et que je vous me comprendrai.
En l'attente de réponse, je vous remercie d'avance!
Steeve.
Je vous explique donc mon problème. A l'exécution d'une macro, j'aimerai que le code suivant ce copie dans une autre :
With Sheets("Nom_entré_précédemment") 'Feuille source
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 2 To NbrLig ' n° de la 1ere ligne de données
If .Cells(Lig, Col).Value <> "" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("Matériel non conforme").Cells(NumLig, 1).Insert Shift:=xlDown
End If
Next
End With
Et à la place de "Nom_entré_précédemment", je veux que cela se change par un nom entré au préalable dans une ComboBox. J'espère que j'ai été assez clair et que je vous me comprendrai.
En l'attente de réponse, je vous remercie d'avance!
Steeve.