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
Daniel
Bonjour. Si j'ai bien compris :
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
Est-ce que c'est possible ?
Merci de votre aide.
José
Bonjour.
Si j'ai bien compris :
Sub test()
If Ctr = 0 Then
Sheets("base").Select
Ctr = Range("A65536").End(xlUp).Row + 1
Sheets("fiche").Select
End If
Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value
Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value
Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1139837536.947995.273060@g43g2000cwa.googlegroups.com...
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE
AAAA Ttttt 15 PARIS
BBBB Uuuuuu 22 DIJON
CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre
(insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM
, PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille :
fiche, le nom
correspondant dans feuille : base.
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
Est-ce que c'est possible ?
Merci de votre aide.
José
Alfred Wallace
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance les zones nommées qui existerons. c'est pour celà qu'il me faut une boucle avec ActiveWorkbook.Names afin de parcourir tous les noms de cette feuille, et, de leur affecter la zone nommée correspondante dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour. Si j'ai bien compris :
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
Est-ce que c'est possible ?
Merci de votre aide.
José
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance
les zones nommées qui existerons. c'est pour celà qu'il me faut une
boucle avec ActiveWorkbook.Names afin de parcourir tous les noms
de cette feuille, et, de leur affecter la zone nommée correspondante
dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour.
Si j'ai bien compris :
Sub test()
If Ctr = 0 Then
Sheets("base").Select
Ctr = Range("A65536").End(xlUp).Row + 1
Sheets("fiche").Select
End If
Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value
Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value
Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1139837536.947995.273060@g43g2000cwa.googlegroups.com...
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE
AAAA Ttttt 15 PARIS
BBBB Uuuuuu 22 DIJON
CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre
(insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM
, PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille :
fiche, le nom
correspondant dans feuille : base.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance les zones nommées qui existerons. c'est pour celà qu'il me faut une boucle avec ActiveWorkbook.Names afin de parcourir tous les noms de cette feuille, et, de leur affecter la zone nommée correspondante dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour. Si j'ai bien compris :
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
Est-ce que c'est possible ?
Merci de votre aide.
José
Daniel
Bonjour. Regarde le classeur à l'adresse : http://cjoint.com/?coqL2Ffqla Cordialement. Daniel "Alfred Wallace" a écrit dans le message de news: 43f0e356$0$20153$
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance les zones nommées qui existerons. c'est pour celà qu'il me faut une boucle avec ActiveWorkbook.Names afin de parcourir tous les noms de cette feuille, et, de leur affecter la zone nommée correspondante dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour. Si j'ai bien compris :
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
Est-ce que c'est possible ?
Merci de votre aide.
José
Bonjour.
Regarde le classeur à l'adresse :
http://cjoint.com/?coqL2Ffqla
Cordialement.
Daniel
"Alfred Wallace" <jose6a@yahoo.fr> a écrit dans le message de news:
43f0e356$0$20153$8fcfb975@news.wanadoo.fr...
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance
les zones nommées qui existerons. c'est pour celà qu'il me faut une
boucle avec ActiveWorkbook.Names afin de parcourir tous les noms
de cette feuille, et, de leur affecter la zone nommée correspondante
dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour.
Si j'ai bien compris :
Sub test()
If Ctr = 0 Then
Sheets("base").Select
Ctr = Range("A65536").End(xlUp).Row + 1
Sheets("fiche").Select
End If
Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value
Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value
Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1139837536.947995.273060@g43g2000cwa.googlegroups.com...
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE
AAAA Ttttt 15 PARIS
BBBB Uuuuuu 22 DIJON
CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre
(insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM
, PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille :
fiche, le nom
correspondant dans feuille : base.
Bonjour. Regarde le classeur à l'adresse : http://cjoint.com/?coqL2Ffqla Cordialement. Daniel "Alfred Wallace" a écrit dans le message de news: 43f0e356$0$20153$
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance les zones nommées qui existerons. c'est pour celà qu'il me faut une boucle avec ActiveWorkbook.Names afin de parcourir tous les noms de cette feuille, et, de leur affecter la zone nommée correspondante dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour. Si j'ai bien compris :
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
Est-ce que c'est possible ?
Merci de votre aide.
José
Alfred Wallace
Merci Daniel, je verifie celà demain matin au boulot ....
José
Bonjour. Regarde le classeur à l'adresse : http://cjoint.com/?coqL2Ffqla Cordialement. Daniel "Alfred Wallace" a écrit dans le message de news: 43f0e356$0$20153$
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance les zones nommées qui existerons. c'est pour celà qu'il me faut une boucle avec ActiveWorkbook.Names afin de parcourir tous les noms de cette feuille, et, de leur affecter la zone nommée correspondante dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour. Si j'ai bien compris :
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
Est-ce que c'est possible ?
Merci de votre aide.
José
Merci Daniel,
je verifie celà demain matin au boulot ....
José
Bonjour.
Regarde le classeur à l'adresse :
http://cjoint.com/?coqL2Ffqla
Cordialement.
Daniel
"Alfred Wallace" <jose6a@yahoo.fr> a écrit dans le message de news:
43f0e356$0$20153$8fcfb975@news.wanadoo.fr...
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance
les zones nommées qui existerons. c'est pour celà qu'il me faut une
boucle avec ActiveWorkbook.Names afin de parcourir tous les noms
de cette feuille, et, de leur affecter la zone nommée correspondante
dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour.
Si j'ai bien compris :
Sub test()
If Ctr = 0 Then
Sheets("base").Select
Ctr = Range("A65536").End(xlUp).Row + 1
Sheets("fiche").Select
End If
Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value
Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value
Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value
End Sub
Cordialement.
Daniel
"Alfred WALLACE" <jose6a@gmail.com> a écrit dans le message de news:
1139837536.947995.273060@g43g2000cwa.googlegroups.com...
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE
AAAA Ttttt 15 PARIS
BBBB Uuuuuu 22 DIJON
CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre
(insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM
, PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille :
fiche, le nom
correspondant dans feuille : base.
Merci Daniel, je verifie celà demain matin au boulot ....
José
Bonjour. Regarde le classeur à l'adresse : http://cjoint.com/?coqL2Ffqla Cordialement. Daniel "Alfred Wallace" a écrit dans le message de news: 43f0e356$0$20153$
Bonsoir Daniel et merci, heu, non, pas çà.
En fait, dans ma "Feuille-Fiche" je ne sais pas à l'avance les zones nommées qui existerons. c'est pour celà qu'il me faut une boucle avec ActiveWorkbook.Names afin de parcourir tous les noms de cette feuille, et, de leur affecter la zone nommée correspondante dans la "feuille-base".
je suis pas certain d'avoir été bien clair.
José
Bonjour. Si j'ai bien compris :
Sub test() If Ctr = 0 Then Sheets("base").Select Ctr = Range("A65536").End(xlUp).Row + 1 Sheets("fiche").Select End If Sheets("base").Range("A" & Ctr).Value = Range("Nom").Value Sheets("base").Range("B" & Ctr).Value = Range("Prenom").Value Sheets("base").Range("D" & Ctr).Value = Range("Ville").Value End Sub
Cordialement. Daniel "Alfred WALLACE" a écrit dans le message de news:
Bonjour ;-)
j'ai 2 feuilles, dans l'une (feuille : base) , un tableau comme ceci :
NOM PRENOM AGE VILLE AAAA Ttttt 15 PARIS BBBB Uuuuuu 22 DIJON CCCC Kkkkkkk 20 LILLE
Je me débrouille pour nommer les colonnes avec leur titre (insertion+nom+créer).
Dans une seconde feuille (feuille : fiche), j'ai nommé 3 celulles NOM , PRENOM et VILLE.
l'idée est donc de copier pour chaque nom rencontré dans feuille : fiche, le nom correspondant dans feuille : base.
