Discussion :

[salluste]

Bonjour à toute et à tous

je tourne en rond depuis plusieurs semaine sur ce projet, je ne suis pas tres fort en programmation et donc j'essaye à adapter des codes

nom, prenom, age adresse, sexe, D, E
abuse jean 17 3 rue M 1 2
abuse jean 17 M
abuse jean 17 3 rue M 1 2
abuse jean 17 M
maltese corto 32 ile M 1 2
maltese corto 32 M

par exemple pour jean abuse, coller la valeur de D et de E dans la ligne de jean ou l'adresse est nulle.

comme me l'a indiqué Philippe j'ai essayé du filtrage mais je ne vois pas réellement comment filtrer je pense plus à une macro qui lorsqu'il trouve une valeur une adresse vide copy les valeur de E, et de D pour un même nom.

merci de votre aide

[Marc-L]

Bonjour, bonjour !

Merci de poster le code entrepris et de joindre un classeur avec une feuille "source" et une feuille "résultat désiré" …

[salluste]

merci pour ta reponse

voici ce que je recherche resultat recherché.xlsx enc e qui concerne je code j'avais du code que j'ai essayé de transformer du style

Code :

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

1
2
3
4
dim i as long 
for i to 5000
if range ("A"&i) (je ne sais pas dire identique)
if range ("B" & i) <> ""

je suis parti la dessus mais je bloque

merci pour l'aide

[Marc-L]

Démonstration à copier dans le module de la feuille :

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
Sub Demo()
                      LR& = [A3].End(xlDown).Row:  Application.ScreenUpdating = False
    With CreateObject("Scripting.Dictionary")
        For R& = 4 To LR
            If Cells(R, 3).Value > "" Then _
               If Not .Exists(Cells(R, 1).Value) Then .Add Cells(R, 1).Value, R
        Next
        For R& = 4 To LR
            If Cells(R, 3).Value = "" Then If .Exists(Cells(R, 1).Value) Then _
               Cells(.Item(Cells(R, 1).Value), 3).Resize(, 2).Copy Cells(R, 3)
        Next
              .RemoveAll
    End With
    End
End Sub

Pour toute information, ne pas hésiter à consulter l'aide VBA intégrée, même pour l'objet Dictionary …

Pour de nombreuses lignes à traiter, combiner avec une variable tableau est bien plus rapide,
encore faut-il que le format des cellules soit cohérent avec les données, ce qui n'est pas le cas du classeur joint !

Enfin : (ne pas voter est s'exposer à ne pas avoir de réponse lors de la prochaine discussion …)
__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________
Définition coiffeur : seul endroit où les Bleus peuvent espérer une coupe !

[salluste]

merci infiniment,