Vba recherche
titi
-
titi -
titi -
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
