Vba recherche

A voir également:Vba rechercheVba recherche dans un tableau - Conseils pratiques - Visual Basic Vba rechercher une valeur dans une colonne ✓ - Forum - VB / VBA Vba recherche - Conseils pratiques - Excel Vba rechercher une valeur dans une plage de données - Forum - VB / VBA Vba recherche fichier nom partiel ✓ - Forum - VB / VBA

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

Forum

A voir également:Vba rechercheVba recherche dans un tableau - Conseils pratiques - Visual Basic Vba rechercher une valeur dans une colonne ✓ - Forum - VB / VBA Vba recherche - Conseils pratiques - Excel Vba rechercher une valeur dans une plage de données - Forum - VB / VBA Vba recherche fichier nom partiel ✓ - Forum - VB / VBA

Web: www.shapebootstrap.net

2 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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

Reply
réponses:
  • auteur

    bonjour
    super ça fonctionne
    merci beaucoup
    cordialement

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

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

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed