Discussion :

[Moun10be]

Bonjour,
Serait-il possible de créé un code VBA pour pouvoir recopier les noms et numéro de GSM dans les cellules de la colonne D en fonction des noms qui sont indiquer dans les cellules des colonnes A et B
La colonne H est le tableau d'archive ou est inscrit tout les noms et numéro de GSM.

Merci d'avance pour vôtres aides.

[ARTURO83]

Bonjour,

Exemple de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Recup_Noms_Gsm()
    Dim i As Long, j As Long
    Dim n As Object
    Application.ScreenUpdating = False
    Range("D2:D10000").ClearContents
    Lig = 2 'Première ligne libre de la colonne D
    For i = 1 To 2 'de la colonne A à B
        DerLig = Cells(Rows.Count, i).End(xlUp).Row
        For j = 2 To DerLig 'de la ligne 2 jusqu'à la dernière
            Nom = Cells(j, i)
            Set n = Columns("H").Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
            If Not n Is Nothing Then
                Cells(Lig, "D") = Nom
                Cells(Lig + 1, "D") = Cells(n.Row + 1, "H")
                Lig = Lig + 2
            End If
        Next j
    Next i
    Set n = Nothing
End Sub

Le fichier
Pièce jointe 523684

Cdlt

[Moun10be]

Un grand merci pour ton aide

[Moun10be]

Bonjour,
je desire modifier légèrement le fichier, c'est a dire qu'en fonction du fichier existant j'aimerai que les noms qui apparaissent dans la colonne A (service 1) soit inscrit dans la colonne D et ceux qui sont dans la colonne B (service 2) soit inscrit dans la colonne E

serait-il possible d'empêcher de modifier le nom de la feuille ainsi que d'en rajouter d'autres

Merci d'avance.



Moun10be_Code VBA pour retrouver des données en fonction d'un mot inscrit.xlsm

[ARTURO83]

Bonjour,

Fichier d'origine modifié, macro "Reconstruction liste Nom et N° GSM" inhibée (puisque les données à récupérer étaient en colonne D, alors que maintenant on va écrire dans cette colonne)

le fichier
Pièce jointe 528418

le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Recup_Noms_en_Colonnes_D_et_E()
    Dim i As Long, j As Long
    Dim n As Object
    Application.ScreenUpdating = False
    Range("D2:E10000").ClearContents
    Lig_D = 2 'Première ligne libre de la colonne D
    Lig_E = 2 'Première ligne libre de la colonne E
    For i = 1 To 2 'de la colonne A à B
        DerLig = Cells(Rows.Count, i).End(xlUp).Row
        For j = 2 To DerLig 'de la ligne 2 jusqu'à la dernière
            Nom = Cells(j, i)
            Set n = Columns("H").Find(Nom, LookIn:=xlValues, lookat:=xlWhole)
            If Not n Is Nothing Then
                If i = 1 Then
                    Cells(Lig_D, "D") = Nom
                    Lig_D = Lig_D + 1
                ElseIf i = 2 Then
                    Cells(Lig_E, "E") = Nom
                    Lig_E = Lig_E + 1
                End If
            End If
        Next j
    Next i
    Set n = Nothing
End Sub

serait-il possible d'empêcher de modifier le nom de la feuille ainsi que d'en rajouter d'autres

OUI, Verrouillez la feuille quand vous avez terminé.

Cdlt

[Moun10be]

Salut ARTURO

Merci pour ton aide, par contre je voulais que le fichier reste tel le premier fichier que vous m'aviez proposer, hormis les modifications comme demander, je m'explique ce que vous m'avez proposé dans votre dernier message c'est bien mais je voulais que les numéro de GSM soit afficher comme dans votre premier fichier proposer.

je ne sais pas si j'ai été assez claire, si non faite le moi savoir et j'essayerai de re expliquer.

Merci d'avance