Bonjour,
Je cherche a faire une macro qui pour un numero de dossier données recopierais des informations dans une meme ligne:
Je m'explique:
J'ai une colonne ou j'ai plusieurs numero de dossier:
et une seconde ou j'ai des informations:
A B
1 il fait beau
1 le soleil brille
1 la temperature est de 19°C
1 je suis venu en vélo
2 J'ai un enfant
2 c'est une fille
3 J'ai une voiture
7 Mon ordinateur ne fonctionne pas
7 il n'est pas branché...
8 C'est mon anniversaire
8 je suis née le 22
Alors l'objectif serait, dans une autre feuille que je crée, de rassembler une meme cellule les données pour un numero de dossier
cad:
A B
1 il fait beau le soleil brille la temperature est de 19°C je suis venu en vélo
2 J'ai un enfant c'est une fille
3 J'ai une voiture
7 Mon ordinateur ne fonctionne pas il n'est pas branché
8 C'est mon anniversaire je suis née le 22
Pour l'instant voila ou j'en suis et ça ne donne pas grand chose:![]()
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 Sub addi() Dim i As Integer Worksheets.Add Worksheets(2).Activate derligne = Worksheets(2).Cells(65535, 1).End(xlUp).Row For i = 2 To derligne If Cells(i, 1).Value <> Cells(i + 1, 1).Value Then i = i + 1 Worksheets(1).Cells(i, 1).Copy Destination:=Worksheets(1).Cells(i, 1) End If Next End Sub
Quelqu'un aurait une idée ???
Merci .
Partager