J'ai une colonne avec des références et je souhaite dans la colonne
adjacente mettre un indice en fonction de la distribution comme suit :
A 1
B 1
B 1.x
C 1
D 1
D 1.x
D 1.x
E 1
F 1
Je cherche mais je ne trouve pas la bonne solution.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Christian.Bernard
Bonjour
Si tu a 2 indice différents pour une même référence comme : B 1 B 1.x
Cela n'est pas évident d'automatiser
Christian
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
D'avance merci
Bonjour
Si tu a 2 indice différents pour une même référence comme :
B 1
B 1.x
Cela n'est pas évident d'automatiser
Christian
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
e4jS3QzfGHA.4880@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne
adjacente mettre un indice en fonction de la distribution comme suit :
A 1
B 1
B 1.x
C 1
D 1
D 1.x
D 1.x
E 1
F 1
Je cherche mais je ne trouve pas la bonne solution.
Si tu a 2 indice différents pour une même référence comme : B 1 B 1.x
Cela n'est pas évident d'automatiser
Christian
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
D'avance merci
RV
Bonjour Eric, Je ne suis pas sûr d'avoir bien compris la question...
Sub test() On Error Resume Next For y = 1 To Mid(Cells(65536, 1).End(xlUp).Address, 4) If UCase(Cells(y, 1).Value) = UCase(Cells(y - 1, 1).Value) Then Cells(y, 2).Value = "1.x" Else: Cells(y, 2).Value = "1" End If Next y End Sub
A mettre dans un module standard Bonne soirée Cordialement RV
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
D'avance merci
Bonjour Eric,
Je ne suis pas sûr d'avoir bien compris la question...
Sub test()
On Error Resume Next
For y = 1 To Mid(Cells(65536, 1).End(xlUp).Address, 4)
If UCase(Cells(y, 1).Value) = UCase(Cells(y - 1, 1).Value) Then
Cells(y, 2).Value = "1.x"
Else: Cells(y, 2).Value = "1"
End If
Next y
End Sub
A mettre dans un module standard
Bonne soirée
Cordialement
RV
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
e4jS3QzfGHA.4880@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne
adjacente mettre un indice en fonction de la distribution comme suit :
A 1
B 1
B 1.x
C 1
D 1
D 1.x
D 1.x
E 1
F 1
Je cherche mais je ne trouve pas la bonne solution.
Bonjour Eric, Je ne suis pas sûr d'avoir bien compris la question...
Sub test() On Error Resume Next For y = 1 To Mid(Cells(65536, 1).End(xlUp).Address, 4) If UCase(Cells(y, 1).Value) = UCase(Cells(y - 1, 1).Value) Then Cells(y, 2).Value = "1.x" Else: Cells(y, 2).Value = "1" End If Next y End Sub
A mettre dans un module standard Bonne soirée Cordialement RV
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
D'avance merci
Fredo P
Peut être cela en B2 à tirer vers le bas SI(A3¢;1&"x";1) "RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
D'avance merci
Peut être cela en B2 à tirer vers le bas
SI(A3¢;1&"x";1)
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
e4jS3QzfGHA.4880@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne
adjacente mettre un indice en fonction de la distribution comme suit :
A 1
B 1
B 1.x
C 1
D 1
D 1.x
D 1.x
E 1
F 1
Je cherche mais je ne trouve pas la bonne solution.
Peut être cela en B2 à tirer vers le bas SI(A3¢;1&"x";1) "RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
Tu as très bien compris la question. Cela fonctionne parfaitement. Entre temps j'avais trouvé une solution mais la tienne est beaucoup plus simple. Encore merci
"RV" a écrit dans le message de news: %
Bonjour Eric, Je ne suis pas sûr d'avoir bien compris la question...
Sub test() On Error Resume Next For y = 1 To Mid(Cells(65536, 1).End(xlUp).Address, 4) If UCase(Cells(y, 1).Value) = UCase(Cells(y - 1, 1).Value) Then Cells(y, 2).Value = "1.x" Else: Cells(y, 2).Value = "1" End If Next y End Sub
A mettre dans un module standard Bonne soirée Cordialement RV
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
D'avance merci
Tu as très bien compris la question.
Cela fonctionne parfaitement.
Entre temps j'avais trouvé une solution mais la tienne est beaucoup plus
simple.
Encore merci
"RV" <dick.pitt@rv.fr> a écrit dans le message de news:
%23PC4hl0fGHA.4172@TK2MSFTNGP04.phx.gbl...
Bonjour Eric,
Je ne suis pas sûr d'avoir bien compris la question...
Sub test()
On Error Resume Next
For y = 1 To Mid(Cells(65536, 1).End(xlUp).Address, 4)
If UCase(Cells(y, 1).Value) = UCase(Cells(y - 1, 1).Value) Then
Cells(y, 2).Value = "1.x"
Else: Cells(y, 2).Value = "1"
End If
Next y
End Sub
A mettre dans un module standard
Bonne soirée
Cordialement
RV
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de
news: e4jS3QzfGHA.4880@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne
adjacente mettre un indice en fonction de la distribution comme suit :
A 1
B 1
B 1.x
C 1
D 1
D 1.x
D 1.x
E 1
F 1
Je cherche mais je ne trouve pas la bonne solution.
Tu as très bien compris la question. Cela fonctionne parfaitement. Entre temps j'avais trouvé une solution mais la tienne est beaucoup plus simple. Encore merci
"RV" a écrit dans le message de news: %
Bonjour Eric, Je ne suis pas sûr d'avoir bien compris la question...
Sub test() On Error Resume Next For y = 1 To Mid(Cells(65536, 1).End(xlUp).Address, 4) If UCase(Cells(y, 1).Value) = UCase(Cells(y - 1, 1).Value) Then Cells(y, 2).Value = "1.x" Else: Cells(y, 2).Value = "1" End If Next y End Sub
A mettre dans un module standard Bonne soirée Cordialement RV
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:
Bonjour,
J'ai une colonne avec des références et je souhaite dans la colonne adjacente mettre un indice en fonction de la distribution comme suit : A 1 B 1 B 1.x C 1 D 1 D 1.x D 1.x E 1 F 1
Je cherche mais je ne trouve pas la bonne solution.
D'avance merci
RENAUD Eric
Très intéressant ta méthode avec une formule. Je ne sais pas vers quoi opter : VBA ou Formule, il me reste à choisir Encore merci
"JB" a écrit dans le message de news:
Bonjour,
La liste commence en A2:
http://cjoint.com/?fztfiqDbDD
=SI(A2¡;"1." & NB.SI($A$1:$A1;A2);"1")
Cordialement JB
Très intéressant ta méthode avec une formule.
Je ne sais pas vers quoi opter : VBA ou Formule, il me reste à choisir
Encore merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1148576737.337615.104210@i39g2000cwa.googlegroups.com...
