Probleme urgent next for

[pasquetp]

BONJOUR,

voici mon pb:
TOTAL: 4 COLONNES: 2 LIE PAR DEUX
j'ai deux colonnes avec des references. dans la une jai des references doublons et dans la colonne b jai lensemble globale de toutes les refs AVEC DOUBLONS; la deuxieme colonne est lie avec une 3eme colonne qui donne des numeros par refs. et je veux que avec le next for la colonne une qui est lie a une 4EME COLONNE VIDE REMPLISSE CETTE 4EME COLONNE AVEC LES NUMEROS DE LA COLONNE 3. LE PB C EST QUE POUR LES DOUBLONS DANS LA COLONNE UNE IL ME DONNE TJRS LE MEME NUMERO HORS JE VEUX UN NUMERO UNIQUE PAR REFERENCE. JE SAIS QUE CEST TRES DIFFICIL A COMPRENDRE ET JEN SUIS DSL. POURRIEZ VOUS MAIDER


REF COLONNE A>>>>>NUMERO
REF COLONNE B>>>>> NUMERO IDENTIQUE

 

[pierrejean]

Re : Probleme urgent next for

Bonjour pasquetp

En effet difficile à comprendre !!

Avec un petit fichier exemple (une 10 aine de lignes suffira) on y verra surement un peu plus clair

 

[pasquetp]

Re : Probleme urgent next for

Merci davoir repondi si vite. Merci et voici le fichier avec des commentaires. En gros lobjectif est davoir des numeros unique

 

[pierrejean]

Re : Probleme urgent next for

Re

En supposant avoir compris !!

 

[pasquetp]

Re : Probleme urgent next for

Je vous remercie. Jai regarder le fichier. Merci d abord. Je vais tenter d emieux lexpliquer.


Colonne a colonne b colonne c colonne d
ref num support ref num support

1 ? 1 a
2 ? 4 b
1 ? 4 c
4 ? 1 d
5 ? 5 e

lobjectif ici est de reporter dans la colonne b les donnes de la colonne d mais en evitant a tout prix les doublons. Donc par exemple pour la reference 1 il faudra le support a et d. C est uniquement la colonne b qui doit etre rempli. La colonne c a toutes les donnees avec la colonne d. Il faut reporter les bonnes donnees demandees depuis la colonne a dans la colonne b.

Je crois que c est plus clair cette fois.

Merci davance
pierre

 

[pierrejean]

Re : Probleme urgent next for

Re

Vois si cette fois j'ai compris

 

[pasquetp]

Re : Probleme urgent next for

bonjour,

merci de votre reponse


jecris pour annoncer que j'ai finalement trouvé un moyen d'obtenir ce que je voulais c'est une combinaison de next for avec une boucle do until.
ca n'a pas été evident mais ca marche

Sub vide()
fin = Range("d65536").End(xlUp).Row
fin2 = Range("l65536").End(xlUp).Row
Range("l1").Select



For a = 3 To fin
Do Until ActiveCell = Cells(a, 4) Or ActiveCell = ""
ActiveCell.Offset(1, 0).Select
Loop
If ActiveCell <> "" Then
Cells(a, 5) = ActiveCell.Offset(0, 1)
ActiveCell = "ok"
End If
Range("l1").Select
Next
End Sub

merci encore