Vba recherche
Bonjour a tous,
je debute dans le vba;
ma volonté dans cette macro:
copié une valeur dans une cellule
la coller dans une cellule recherchée vide
je vous remercie pour votre aide
cordialement
thierry
voici mon code:
Sub Macro9()
Dim maLigne As Long
With Sheets("Fiche a completer CSV 20,20")
If .Range("A4") <> "" Then
maLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
Else
maLigne = 1
End If
Range("A2:D2").Select
Selection.Copy
Range maLigne.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub
je debute dans le vba;
ma volonté dans cette macro:
copié une valeur dans une cellule
la coller dans une cellule recherchée vide
je vous remercie pour votre aide
cordialement
thierry
voici mon code:
Sub Macro9()
Dim maLigne As Long
With Sheets("Fiche a completer CSV 20,20")
If .Range("A4") <> "" Then
maLigne = .Range("A" & Rows.Count).End(xlUp).Row + 1
Else
maLigne = 1
End If
Range("A2:D2").Select
Selection.Copy
Range maLigne.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub
2 réponses
-
ContributeurBonjour,
maLigne est Long donc change
Range maLigne.Select
par
Range("A" & maLigne).Select
Voilà
-
Bonjour,
à première vue il faudrait plutôt écrireRows(MALIGNE).Select
à la place deRange maLigne.Select
, reviens avec plus de détails sur ce qui te pose problème si ce n'est pas ça dont tu as besoin
