Re : Ligne qui se copie automatique vers une autre feuille lorsque l'on inscrit une valeur
Bon continuons dans la même lignée...
Si je veux que la ligne qui se copie à partir de mon bouton dans "global" se place en dessous de la ligne qui a le même # sans recopier se même numéro... Es-ce possible..? Pour le moment j'en suis encore à essayer de pas faire recopier le même numéro deux fois et j'ai pas encore commencer à même essayer de peut-être penser
à le mettre en dessous de l'autre.
Voici le code (qui ne fonctionne pas, il continu de copier la ligne tout simplement):
Private Sub CMDsend_Click()
Dim numligne As Long
numligne = Sheets("Global").Range("B65536").End(xlUp).Row
lignefin = Range("r65536").End(xlUp).Row
If Sheets("global").Range("B" & "B65536") = "Cells(lignefin, 1)" Then
Sheets("Global").Range("A" & numligne).EntireRow.Insert
Sheets("Global").Range("D" & numligne) = Cells(lignefin, 2) & " " & Cells(lignefin, 3)
Sheets("Global").Range("E" & numligne) = Cells(lignefin, 4)
Sheets("Global").Range("F" & numligne) = Cells(lignefin, 13)
Sheets("Global").Range("G" & numligne) = Cells(lignefin, 14)
Sheets("Global").Range("C" & numligne) = Cells(3, 18)
Else
numligne = Sheets("Global").Range("B65536").End(xlUp).Row
lignefin = Range("r65536").End(xlUp).Row
Sheets("Global").Range("A" & numligne).EntireRow.Insert
Sheets("Global").Range("B" & numligne) = Cells(lignefin, 1)
Sheets("Global").Range("D" & numligne) = Cells(lignefin, 2) & " " & Cells(lignefin, 3)
Sheets("Global").Range("E" & numligne) = Cells(lignefin, 4)
Sheets("Global").Range("F" & numligne) = Cells(lignefin, 13)
Sheets("Global").Range("G" & numligne) = Cells(lignefin, 14)
Sheets("Global").Range("C" & numligne) = Cells(3, 18)
End If
Vous qui êtes si grand si Sage, vous qui gardez le gem de Sitorak en lieu sûr...
Aidez-moi =(