Bonjour,
J'essaie de réaliser une selection de cellule par ligne sachant que le numéro de la ligne est variable.
Ensuite je souhaite copier ces cellules et les coller dans une autre feuille où la encore la ligne est variable.
J'ai déterminé deux variables Ligne1 et Ligne2 mais la macro bug sur la seléction des cellules.
Qui pourrait l'aider svp
Dim szName As String
Dim szAddress As String
Dim szCity As String
Dim szState As String
Dim szZip As String
Dim szTour As String
Dim Ligne1 As String
Dim Ligne2 As String
Ligne1 = 11
Ligne2 = 11
szAddress = Cells(Ligne1, 3)
Do While (szAddress <> "")
szName = Cells(Ligne1, 2)
'IfszName = 0 Then szName = Ligne1 - 11 End If
szCity = Cells(Ligne1, 4)
szState = Cells(Ligne1, 6)
szZip = Cells(Ligne1, 5)
szTour = Cells(Ligne1, 7)
Range("B & Ligne1:G & Ligne1").Select
Selection.Copy
Sheets("Adresses fausses").Select
Range("B & Ligne2:G & Ligne2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Localiser des adresses").Select
Ligne2 = Ligne2 + 1
Ligne1 = Ligne1 + 1
Loop
End Sub
J'essaie de réaliser une selection de cellule par ligne sachant que le numéro de la ligne est variable.
Ensuite je souhaite copier ces cellules et les coller dans une autre feuille où la encore la ligne est variable.
J'ai déterminé deux variables Ligne1 et Ligne2 mais la macro bug sur la seléction des cellules.
Qui pourrait l'aider svp
Dim szName As String
Dim szAddress As String
Dim szCity As String
Dim szState As String
Dim szZip As String
Dim szTour As String
Dim Ligne1 As String
Dim Ligne2 As String
Ligne1 = 11
Ligne2 = 11
szAddress = Cells(Ligne1, 3)
Do While (szAddress <> "")
szName = Cells(Ligne1, 2)
'IfszName = 0 Then szName = Ligne1 - 11 End If
szCity = Cells(Ligne1, 4)
szState = Cells(Ligne1, 6)
szZip = Cells(Ligne1, 5)
szTour = Cells(Ligne1, 7)
Range("B & Ligne1:G & Ligne1").Select
Selection.Copy
Sheets("Adresses fausses").Select
Range("B & Ligne2:G & Ligne2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Localiser des adresses").Select
Ligne2 = Ligne2 + 1
Ligne1 = Ligne1 + 1
Loop
End Sub