Celeda
XLDnaute Barbatruc
Bonjour,
Vu mes lacunes en vba, je ne suis pas capable d'améliorer un code, du moins à ajouter une donnée dans une ligne de code :
voici le code qui alimente une combo (dans la feuille Operator) qui fait apparaître une liste de noms (de la feuille Status) - puis viennent se coller les données correspondantes à chaque nom dans la feuille Operator de G11 à I65536 :
Private Sub ComboBox1_Change()
ligne = 11
col = 7
Range("G11:I65536").Clear
For n = 15 To Sheets("STATUS").Range("F65536").End(xlUp).Row
If Sheets("STATUS").Range("F" & n) = ComboBox1 Then
Sheets("STATUS").Range("C" & n & ":d" & n).Copy Destination:=Cells(ligne, col)
je voudrais ajouter que la colonne M après Range("C" & n & ":d" & n) j'ai essayé de placer : n & ":M" mais cela me recopie toutes les colonnes de D à M et je pense que c'est du à la variable n ........normal : comment puis-je corriger cela, SVP.
ligne = ligne + 1
End If
Next n
Range("G11:I" & Range("G65536").End(xlUp).Row).Borders.LineStyle = xlContinuous
End Sub
Un grand merci à l'avance
Vu mes lacunes en vba, je ne suis pas capable d'améliorer un code, du moins à ajouter une donnée dans une ligne de code :
voici le code qui alimente une combo (dans la feuille Operator) qui fait apparaître une liste de noms (de la feuille Status) - puis viennent se coller les données correspondantes à chaque nom dans la feuille Operator de G11 à I65536 :
Private Sub ComboBox1_Change()
ligne = 11
col = 7
Range("G11:I65536").Clear
For n = 15 To Sheets("STATUS").Range("F65536").End(xlUp).Row
If Sheets("STATUS").Range("F" & n) = ComboBox1 Then
Sheets("STATUS").Range("C" & n & ":d" & n).Copy Destination:=Cells(ligne, col)
je voudrais ajouter que la colonne M après Range("C" & n & ":d" & n) j'ai essayé de placer : n & ":M" mais cela me recopie toutes les colonnes de D à M et je pense que c'est du à la variable n ........normal : comment puis-je corriger cela, SVP.
ligne = ligne + 1
End If
Next n
Range("G11:I" & Range("G65536").End(xlUp).Row).Borders.LineStyle = xlContinuous
End Sub
Un grand merci à l'avance