Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Lien 1 table - 1 ligne avec 1 table - 3 lignes

2 réponses
Avatar
Michael Skind
Bonjour à tous,

Voici le problème.

Je possède une table Excel du genre :
Ref 1 - Date 1 - Date 2 - Date 3

et une seconde :
Ref 2 - Date - Num Date

Je voudrais, quand Ref 1 = Ref 2, remplir la bonne cellule Date 1, 2 ou 3
avec la cellule Date en fonction de la valeur de Num Date.

Exemple :
1)
Dans ma 1er table :
001 - Vide - Vide - Vide

2)
Je créé dans ma seconde table l'entrée :
001 - 01/01/2007 - 2

1) devient alors 001 - Vide - 01/01/2007 - Vide
j'ai récupéré la valeur de Date pour le mettre dans Date 2

3)
puis j'ajoute dans ma seconde table :
001 - 01/02/2007 - 3

1) devient alors 001 - Vide - 01/01/2007 - 01/02/2007
j'ai récupéré la valeur de Date pour le mettre dans Date 3


J'espère avoir réussi à exploser mon problème :)

Merci d'avance pour votre aide.

2 réponses

Avatar
Jacky
Bonjour,
Ceci peut-être:
'----------
Sub jj()
For i = 2 To Sheets("Ref_2").Range("c65536").End(3).Row
x = Range("a" & i): col = Range("c" & i) + 1
For j = 2 To Sheets("Ref_1").Range("a65536").End(3).Row
If Range("a" & j) = x Then
Sheets("Ref_1").Cells(j, col) = Range("b" & i)
End If
Next
Next
End Sub
'-----------
Exemple ici
http://cjoint.com/?lzmobER0jf

--
Salutations
JJ

"Michael Skind" a écrit dans le message de news:
456813ac$0$21902$
Bonjour à tous,

Voici le problème.

Je possède une table Excel du genre :
Ref 1 - Date 1 - Date 2 - Date 3

et une seconde :
Ref 2 - Date - Num Date

Je voudrais, quand Ref 1 = Ref 2, remplir la bonne cellule Date 1, 2 ou 3
avec la cellule Date en fonction de la valeur de Num Date.

Exemple :
1)
Dans ma 1er table :
001 - Vide - Vide - Vide

2)
Je créé dans ma seconde table l'entrée :
001 - 01/01/2007 - 2

1) devient alors 001 - Vide - 01/01/2007 - Vide
j'ai récupéré la valeur de Date pour le mettre dans Date 2

3)
puis j'ajoute dans ma seconde table :
001 - 01/02/2007 - 3

1) devient alors 001 - Vide - 01/01/2007 - 01/02/2007
j'ai récupéré la valeur de Date pour le mettre dans Date 3


J'espère avoir réussi à exploser mon problème :)

Merci d'avance pour votre aide.



Avatar
Jacky
Re...

If Range("a" & j) = x Then
et à remplacer par
If Sheets("Ref_1").Range("a" & j) = x Then

--
Salutations
JJ

"Jacky" a écrit dans le message de news:

Bonjour,
Ceci peut-être:
'----------
Sub jj()
For i = 2 To Sheets("Ref_2").Range("c65536").End(3).Row
x = Range("a" & i): col = Range("c" & i) + 1
For j = 2 To Sheets("Ref_1").Range("a65536").End(3).Row
If Range("a" & j) = x Then
Sheets("Ref_1").Cells(j, col) = Range("b" & i)
End If
Next
Next
End Sub
'-----------
Exemple ici
http://cjoint.com/?lzmobER0jf

--
Salutations
JJ

"Michael Skind" a écrit dans le message de news:
456813ac$0$21902$
Bonjour à tous,

Voici le problème.

Je possède une table Excel du genre :
Ref 1 - Date 1 - Date 2 - Date 3

et une seconde :
Ref 2 - Date - Num Date

Je voudrais, quand Ref 1 = Ref 2, remplir la bonne cellule Date 1, 2 ou 3
avec la cellule Date en fonction de la valeur de Num Date.

Exemple :
1)
Dans ma 1er table :
001 - Vide - Vide - Vide

2)
Je créé dans ma seconde table l'entrée :
001 - 01/01/2007 - 2

1) devient alors 001 - Vide - 01/01/2007 - Vide
j'ai récupéré la valeur de Date pour le mettre dans Date 2

3)
puis j'ajoute dans ma seconde table :
001 - 01/02/2007 - 3

1) devient alors 001 - Vide - 01/01/2007 - 01/02/2007
j'ai récupéré la valeur de Date pour le mettre dans Date 3


J'espère avoir réussi à exploser mon problème :)

Merci d'avance pour votre aide.