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
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.
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" <skind@free.fr> a écrit dans le message de news:
456813ac$0$21902$426a74cc@news.free.fr...
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
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.
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.
Re...
If Range("a" & j) = x Then
et à remplacer par
If Sheets("Ref_1").Range("a" & j) = x Then
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
eIKISMIEHHA.4680@TK2MSFTNGP04.phx.gbl...
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" <skind@free.fr> a écrit dans le message de news:
456813ac$0$21902$426a74cc@news.free.fr...
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
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