j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a
renseigner.
a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé"
toutes les informations receuilli dans un tableau d'une feuille excel
seulement je voudrai que quand je clic sur "valide" je passe a la ligne
inferieur de mon tableau excel donc une sorte de boucle
actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 2).Value = Depart
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value
Sheets("Feuil4").Cells(17, 4).Value = longueur & "m"
Sheets("Feuil4").Cells(17, 5).Value = Pose
Sheets("Feuil4").Cells(17, 6).Value = Pole
Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C"
Sheets("Feuil4").Cells(17, 8).Value = Circuit
Sheets("Feuil4").Cells(17, 9).Value = Couche
end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation
me suis-je bien fait comprendre ?
mais je maitrise pas bien , pouvez vous m'aider ????
merci
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
ru-th
Salut
ligne=[feuil4!b65536].end(xlup).row+1 Sheets("Feuil4").Cells(ligne, 2).Value = Depart .... a+ rural thierry "seb" a écrit dans le message de news:
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a renseigner. a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé" toutes les informations receuilli dans un tableau d'une feuille excel seulement je voudrai que quand je clic sur "valide" je passe a la ligne inferieur de mon tableau excel donc une sorte de boucle actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value Sheets("Feuil4").Cells(17, 4).Value = longueur & "m" Sheets("Feuil4").Cells(17, 5).Value = Pose Sheets("Feuil4").Cells(17, 6).Value = Pole Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C" Sheets("Feuil4").Cells(17, 8).Value = Circuit Sheets("Feuil4").Cells(17, 9).Value = Couche end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation me suis-je bien fait comprendre ? mais je maitrise pas bien , pouvez vous m'aider ???? merci
Salut
ligne=[feuil4!b65536].end(xlup).row+1
Sheets("Feuil4").Cells(ligne, 2).Value = Depart
....
a+
rural thierry
"seb" <seb@discussions.microsoft.com> a écrit dans le message de news:
503B73C9-20F5-44F8-B3B8-272400375036@microsoft.com...
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a
renseigner.
a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé"
toutes les informations receuilli dans un tableau d'une feuille excel
seulement je voudrai que quand je clic sur "valide" je passe a la ligne
inferieur de mon tableau excel donc une sorte de boucle
actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value
Sheets("Feuil4").Cells(17, 4).Value = longueur & "m"
Sheets("Feuil4").Cells(17, 5).Value = Pose
Sheets("Feuil4").Cells(17, 6).Value = Pole
Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C"
Sheets("Feuil4").Cells(17, 8).Value = Circuit
Sheets("Feuil4").Cells(17, 9).Value = Couche
end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation
me suis-je bien fait comprendre ?
mais je maitrise pas bien , pouvez vous m'aider ????
merci
ligne=[feuil4!b65536].end(xlup).row+1 Sheets("Feuil4").Cells(ligne, 2).Value = Depart .... a+ rural thierry "seb" a écrit dans le message de news:
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a renseigner. a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé" toutes les informations receuilli dans un tableau d'une feuille excel seulement je voudrai que quand je clic sur "valide" je passe a la ligne inferieur de mon tableau excel donc une sorte de boucle actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value Sheets("Feuil4").Cells(17, 4).Value = longueur & "m" Sheets("Feuil4").Cells(17, 5).Value = Pose Sheets("Feuil4").Cells(17, 6).Value = Pole Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C" Sheets("Feuil4").Cells(17, 8).Value = Circuit Sheets("Feuil4").Cells(17, 9).Value = Couche end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation me suis-je bien fait comprendre ? mais je maitrise pas bien , pouvez vous m'aider ???? merci
seb
hello
c'est magnifique , ca marche nickel chrome !! merci bien
par contre serai t'il posssible de mettre une petite expliquation pour ne pas recopier betement ?? (comment ca marche en gros) merci bien
Salut
ligne=[feuil4!b65536].end(xlup).row+1 Sheets("Feuil4").Cells(ligne, 2).Value = Depart ..... a+ rural thierry "seb" a écrit dans le message de news:
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a renseigner. a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé" toutes les informations receuilli dans un tableau d'une feuille excel seulement je voudrai que quand je clic sur "valide" je passe a la ligne inferieur de mon tableau excel donc une sorte de boucle actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value Sheets("Feuil4").Cells(17, 4).Value = longueur & "m" Sheets("Feuil4").Cells(17, 5).Value = Pose Sheets("Feuil4").Cells(17, 6).Value = Pole Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C" Sheets("Feuil4").Cells(17, 8).Value = Circuit Sheets("Feuil4").Cells(17, 9).Value = Couche end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation me suis-je bien fait comprendre ? mais je maitrise pas bien , pouvez vous m'aider ???? merci
hello
c'est magnifique , ca marche nickel chrome !!
merci bien
par contre serai t'il posssible de mettre une petite expliquation pour ne
pas recopier betement ?? (comment ca marche en gros)
merci bien
Salut
ligne=[feuil4!b65536].end(xlup).row+1
Sheets("Feuil4").Cells(ligne, 2).Value = Depart
.....
a+
rural thierry
"seb" <seb@discussions.microsoft.com> a écrit dans le message de news:
503B73C9-20F5-44F8-B3B8-272400375036@microsoft.com...
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a
renseigner.
a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé"
toutes les informations receuilli dans un tableau d'une feuille excel
seulement je voudrai que quand je clic sur "valide" je passe a la ligne
inferieur de mon tableau excel donc une sorte de boucle
actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value
Sheets("Feuil4").Cells(17, 4).Value = longueur & "m"
Sheets("Feuil4").Cells(17, 5).Value = Pose
Sheets("Feuil4").Cells(17, 6).Value = Pole
Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C"
Sheets("Feuil4").Cells(17, 8).Value = Circuit
Sheets("Feuil4").Cells(17, 9).Value = Couche
end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation
me suis-je bien fait comprendre ?
mais je maitrise pas bien , pouvez vous m'aider ????
merci
c'est magnifique , ca marche nickel chrome !! merci bien
par contre serai t'il posssible de mettre une petite expliquation pour ne pas recopier betement ?? (comment ca marche en gros) merci bien
Salut
ligne=[feuil4!b65536].end(xlup).row+1 Sheets("Feuil4").Cells(ligne, 2).Value = Depart ..... a+ rural thierry "seb" a écrit dans le message de news:
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a renseigner. a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé" toutes les informations receuilli dans un tableau d'une feuille excel seulement je voudrai que quand je clic sur "valide" je passe a la ligne inferieur de mon tableau excel donc une sorte de boucle actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value Sheets("Feuil4").Cells(17, 4).Value = longueur & "m" Sheets("Feuil4").Cells(17, 5).Value = Pose Sheets("Feuil4").Cells(17, 6).Value = Pole Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C" Sheets("Feuil4").Cells(17, 8).Value = Circuit Sheets("Feuil4").Cells(17, 9).Value = Couche end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation me suis-je bien fait comprendre ? mais je maitrise pas bien , pouvez vous m'aider ???? merci
seb
Je me reprend :
ca a bien m'arché au depart , mais dé que j'ai effacé lttoute sle sdonnée de ma feuille et que j'ai voulu recommencé ca marchai moi bien
la maintenant ca me rempli toujour la ligne 16 ?????? commen fair pour affecté la valeur initial a "ligne" ?? merci
Salut
ligne=[feuil4!b65536].end(xlup).row+1 Sheets("Feuil4").Cells(ligne, 2).Value = Depart ..... a+ rural thierry "seb" a écrit dans le message de news:
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a renseigner. a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé" toutes les informations receuilli dans un tableau d'une feuille excel seulement je voudrai que quand je clic sur "valide" je passe a la ligne inferieur de mon tableau excel donc une sorte de boucle actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value Sheets("Feuil4").Cells(17, 4).Value = longueur & "m" Sheets("Feuil4").Cells(17, 5).Value = Pose Sheets("Feuil4").Cells(17, 6).Value = Pole Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C" Sheets("Feuil4").Cells(17, 8).Value = Circuit Sheets("Feuil4").Cells(17, 9).Value = Couche end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation me suis-je bien fait comprendre ? mais je maitrise pas bien , pouvez vous m'aider ???? merci
Je me reprend :
ca a bien m'arché au depart , mais dé que j'ai effacé lttoute sle sdonnée de
ma feuille et que j'ai voulu recommencé ca marchai moi bien
la maintenant ca me rempli toujour la ligne 16 ??????
commen fair pour affecté la valeur initial a "ligne" ??
merci
Salut
ligne=[feuil4!b65536].end(xlup).row+1
Sheets("Feuil4").Cells(ligne, 2).Value = Depart
.....
a+
rural thierry
"seb" <seb@discussions.microsoft.com> a écrit dans le message de news:
503B73C9-20F5-44F8-B3B8-272400375036@microsoft.com...
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a
renseigner.
a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé"
toutes les informations receuilli dans un tableau d'une feuille excel
seulement je voudrai que quand je clic sur "valide" je passe a la ligne
inferieur de mon tableau excel donc une sorte de boucle
actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value
Sheets("Feuil4").Cells(17, 4).Value = longueur & "m"
Sheets("Feuil4").Cells(17, 5).Value = Pose
Sheets("Feuil4").Cells(17, 6).Value = Pole
Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C"
Sheets("Feuil4").Cells(17, 8).Value = Circuit
Sheets("Feuil4").Cells(17, 9).Value = Couche
end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation
me suis-je bien fait comprendre ?
mais je maitrise pas bien , pouvez vous m'aider ????
merci
ca a bien m'arché au depart , mais dé que j'ai effacé lttoute sle sdonnée de ma feuille et que j'ai voulu recommencé ca marchai moi bien
la maintenant ca me rempli toujour la ligne 16 ?????? commen fair pour affecté la valeur initial a "ligne" ?? merci
Salut
ligne=[feuil4!b65536].end(xlup).row+1 Sheets("Feuil4").Cells(ligne, 2).Value = Depart ..... a+ rural thierry "seb" a écrit dans le message de news:
Bonjour
j'ai actuellement crée un UserForm dans lequel j'ai implanté des champs a renseigner. a la fun du UserForm , j'ai un bouton validé qu ime permet de "balancé" toutes les informations receuilli dans un tableau d'une feuille excel seulement je voudrai que quand je clic sur "valide" je passe a la ligne inferieur de mon tableau excel donc une sorte de boucle actuellement j'ai ca :
Private Sub Valide_Click()
'remplissage de la feuille
Sheets("Feuil4").Cells(17, 3).Value = Conso.Value & Unité.Value Sheets("Feuil4").Cells(17, 4).Value = longueur & "m" Sheets("Feuil4").Cells(17, 5).Value = Pose Sheets("Feuil4").Cells(17, 6).Value = Pole Sheets("Feuil4").Cells(17, 7).Value = Temperature & "°C" Sheets("Feuil4").Cells(17, 8).Value = Circuit Sheets("Feuil4").Cells(17, 9).Value = Couche end sub
Il faudrai remplacé le 17 par 18 puis 19 etc.....apres chaque validation me suis-je bien fait comprendre ? mais je maitrise pas bien , pouvez vous m'aider ???? merci