Menu

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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
6089
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 juin 2019
370
1
Merci
Bonjour,

maLigne est Long donc change

Range maLigne.Select 


par

Range("A" &  maLigne).Select 


Voilà

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 41812 internautes nous ont dit merci ce mois-ci

bonjour
super ça fonctionne
merci beaucoup
cordialement
Commenter la réponse de cs_Le Pivert
Messages postés
569
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
14 juin 2019
39
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 41812 internautes nous ont dit merci ce mois-ci

Commenter la réponse de fabien25000