Vba recherche [Fermé]

Signaler
-
 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

2 réponses

Messages postés
6876
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 août 2020
538
Bonjour,

maLigne est Long donc change

Range maLigne.Select 


par

Range("A" &  maLigne).Select 


Voilà
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 58107 internautes nous ont dit merci ce mois-ci

bonjour
super ça fonctionne
merci beaucoup
cordialement
Messages postés
591
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
19 juin 2020
48
Bonjour,

à première vue il faudrait plutôt écrire
Rows(MALIGNE).Select
à la place de
Range 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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 58107 internautes nous ont dit merci ce mois-ci