Vba copy valeur de ces cellules feuil1 a feuil2

Fermé

Ordinateur! Messages postés 1 Date d'inscription samedi 20 février 2016 Statut Membre Dernière intervention 20 février 2016 - 20 févr. 2016 à 09:56
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 mars 2016 à 13:20

Bonjour
Merci de m'aider a faire un script
chercher un nom sur feuil1 A1:A33
le nom trouve var selectionne cette ligne

Var = InputBox("Mot à rechercher ?")
si var est trouvé A1 :A33 ‘nom’
Sélectionne cette ligne
prendre quelques valeurs de ces cellules de cette ligne
et copier sur feuil2

Ex : copy valeur E3 feuil1 sur feuil2 A1

Copy valeur F3 feuil1 sur feuli2 B3

Copy valeur G3 feuil1 sur feuil2 K2

merci de votre aide pour copie des cellules
Sub test()

With Worksheets("feuil1")
Var = InputBox("Mot à rechercher ?")
For Each Cell In Range("A1:A10")
If Cell.Value = Var Then
Cell.Copy Cell.Offset(0, 3)
Exit For
End If
Next Cell
End With
End Sub

A voir également:

Vba copy valeur de ces cellules feuil1 a feuil2
Excel additionner des cellules - Guide
Super copy - Télécharger - Gestion de fichiers
Verrouiller cellules excel - Guide
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
Attribuer une valeur à une cellule texte excel ✓ - Forum Excel

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
20 févr. 2016 à 14:10

Bonjour
sans précisions de ta part, il peut y avoir plusieurs fois le mot dans A1 A10 et le résultat s'incrémente d'une ligne dans la feuille2
Merci d'^tre précis et complet dans les Demandes :o)

Var est un nom réservé par vba

Option Explicit
'-------------
Sub ccm()
Dim Mot As String, Nbre As Byte, cptr As Byte, Lig1 As Long, lig2 As Integer

Application.ScreenUpdating = False

With Sheets("feuil1")
    On Error GoTo saisie
    Mot = InputBox("Mot à rechercher ?")
    Nbre = Application.CountIf(.Range("A1:A10"), Mot)
    If Nbre = 0 Then GoTo vide
    Lig1 = Cells.Rows.Count
    lig2 = 1
    For cptr = 1 To Nbre
        Lig1 = .Columns("A").Find(Mot, .Cells(Lig1, "A"), xlValues).Row
       Sheets("feuil2").Cells(lig2, "A") = .Cells(Lig1, "E")
       Sheets("feuil2").Cells(lig2 + 2, "B") = .Cells(Lig1, "F")
        Sheets("feuil2").Cells(lig2 + 1, "K") = .Cells(Lig1, "G")
        lig2 = lig2 + 1
    Next
End With
Exit Sub

'gestionnaire erreur
saisie:
MsgBox "aucune saisie effectuée", vbCritical

vide:
MsgBox Mot & " inconnu dans la liste!", vbCritical
End Sub

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
26 mars 2016 à 13:20

MERCI!
de rien...

Discussions similaires

Problème de restrictions

Excel VBA : Récupérer la valeur d'une cellule

"L'indice n'appartient à la sélection" + VBA

Cellules en surbrillance selon une TextBox

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters