J'ai cr=E9=E9 un userform qui est utilis=E9 par diff=E9rentes=20
personnes sur diff=E9rentes feuilles dans un=20
m=EAme "workbook".=20
En cliquant sur le bouton de commande OK sur le Userform,=20
voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating =3D False
Dim Ligne As Long
With ActiveSheet()
Ligne =3D .[a65536].End(xlUp)(2).Row
'Ligne=3D premi=E8re ligne disponible de la feuille
With ActiveSheet()
.Range("A" & Ligne) =3D "00181"
.Range("B" & Ligne) =3D NIE.TextBox1
.Range("C" & Ligne).Formula =3D " =3D If (Checkbox11 =3D=20
True then ("C & Ligne) =3D NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur=20
du textbox 2 si le checkbox 11 est choisi. Sinon, je=20
vodrais que la valeur .Range("C" & Ligne) sit =E9gale =E0 $0.00
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
Pas testé IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ;"$0.00")
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news: 01cc01c3aecd$3aaeaa80$ Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes personnes sur différentes feuilles dans un même "workbook".
En cliquant sur le bouton de commande OK sur le Userform, voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False Dim Ligne As Long
With ActiveSheet() Ligne = .[a65536].End(xlUp)(2).Row 'Ligne= première ligne disponible de la feuille With ActiveSheet() .Range("A" & Ligne) = "00181" .Range("B" & Ligne) = NIE.TextBox1 .Range("C" & Ligne).Formula = " = If (Checkbox11 True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur du textbox 2 si le checkbox 11 est choisi. Sinon, je vodrais que la valeur .Range("C" & Ligne) sit égale à $0.00
Auriez-vous une idée?
Merci beaucoup
Denys
Salut
Pas testé
IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ;"$0.00")
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
01cc01c3aecd$3aaeaa80$a401280a@phx.gbl...
Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes
personnes sur différentes feuilles dans un
même "workbook".
En cliquant sur le bouton de commande OK sur le Userform,
voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False
Dim Ligne As Long
With ActiveSheet()
Ligne = .[a65536].End(xlUp)(2).Row
'Ligne= première ligne disponible de la feuille
With ActiveSheet()
.Range("A" & Ligne) = "00181"
.Range("B" & Ligne) = NIE.TextBox1
.Range("C" & Ligne).Formula = " = If (Checkbox11 True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur
du textbox 2 si le checkbox 11 est choisi. Sinon, je
vodrais que la valeur .Range("C" & Ligne) sit égale à $0.00
Pas testé IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ;"$0.00")
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news: 01cc01c3aecd$3aaeaa80$ Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes personnes sur différentes feuilles dans un même "workbook".
En cliquant sur le bouton de commande OK sur le Userform, voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False Dim Ligne As Long
With ActiveSheet() Ligne = .[a65536].End(xlUp)(2).Row 'Ligne= première ligne disponible de la feuille With ActiveSheet() .Range("A" & Ligne) = "00181" .Range("B" & Ligne) = NIE.TextBox1 .Range("C" & Ligne).Formula = " = If (Checkbox11 True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur du textbox 2 si le checkbox 11 est choisi. Sinon, je vodrais que la valeur .Range("C" & Ligne) sit égale à $0.00
Auriez-vous une idée?
Merci beaucoup
Denys
Denys
Salut Thierry,
Merci, je l'essaie, et je reviens..
Bonne soirée
Denys
-----Original Message----- Salut
Pas testé IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ;"$0.00")
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news:
01cc01c3aecd$3aaeaa80$ Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes personnes sur différentes feuilles dans un même "workbook".
En cliquant sur le bouton de commande OK sur le Userform, voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False Dim Ligne As Long
With ActiveSheet() Ligne = .[a65536].End(xlUp)(2).Row 'Ligne= première ligne disponible de la feuille With ActiveSheet() .Range("A" & Ligne) = "00181" .Range("B" & Ligne) = NIE.TextBox1 .Range("C" & Ligne).Formula = " = If (Checkbox11 = True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur du textbox 2 si le checkbox 11 est choisi. Sinon, je vodrais que la valeur .Range("C" & Ligne) sit égale à $0.00
Auriez-vous une idée?
Merci beaucoup
Denys
.
Salut Thierry,
Merci, je l'essaie, et je reviens..
Bonne soirée
Denys
-----Original Message-----
Salut
Pas testé
IIF(Checkbox11 =True ,range("C"& Ligne) =
NIE.Textbox2 ;"$0.00")
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" <denys.perreault@rbc.com> a écrit dans le message
de news:
01cc01c3aecd$3aaeaa80$a401280a@phx.gbl...
Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes
personnes sur différentes feuilles dans un
même "workbook".
En cliquant sur le bouton de commande OK sur le Userform,
voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False
Dim Ligne As Long
With ActiveSheet()
Ligne = .[a65536].End(xlUp)(2).Row
'Ligne= première ligne disponible de la feuille
With ActiveSheet()
.Range("A" & Ligne) = "00181"
.Range("B" & Ligne) = NIE.TextBox1
.Range("C" & Ligne).Formula = " = If (Checkbox11 =
True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur
du textbox 2 si le checkbox 11 est choisi. Sinon, je
vodrais que la valeur .Range("C" & Ligne) sit égale à
$0.00
Pas testé IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ;"$0.00")
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news:
01cc01c3aecd$3aaeaa80$ Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes personnes sur différentes feuilles dans un même "workbook".
En cliquant sur le bouton de commande OK sur le Userform, voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False Dim Ligne As Long
With ActiveSheet() Ligne = .[a65536].End(xlUp)(2).Row 'Ligne= première ligne disponible de la feuille With ActiveSheet() .Range("A" & Ligne) = "00181" .Range("B" & Ligne) = NIE.TextBox1 .Range("C" & Ligne).Formula = " = If (Checkbox11 = True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur du textbox 2 si le checkbox 11 est choisi. Sinon, je vodrais que la valeur .Range("C" & Ligne) sit égale à $0.00
Auriez-vous une idée?
Merci beaucoup
Denys
.
ru-th
à vu de nez, au moins un point virgule de trop ! IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ?"$0.00")
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news: 1d5a01c3aee5$87f12ee0$ Salut Thierry,
Merci, je l'essaie, et je reviens..
Bonne soirée
Denys
-----Original Message----- Salut
Pas testé IIF(Checkbox11 =True ,range("C"& Ligne) NIE.Textbox2 ;"$0.00")
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news:
01cc01c3aecd$3aaeaa80$ Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes personnes sur différentes feuilles dans un même "workbook".
En cliquant sur le bouton de commande OK sur le Userform, voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False Dim Ligne As Long
With ActiveSheet() Ligne = .[a65536].End(xlUp)(2).Row 'Ligne= première ligne disponible de la feuille With ActiveSheet() .Range("A" & Ligne) = "00181" .Range("B" & Ligne) = NIE.TextBox1 .Range("C" & Ligne).Formula = " = If (Checkbox11 >True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur du textbox 2 si le checkbox 11 est choisi. Sinon, je vodrais que la valeur .Range("C" & Ligne) sit égale à $0.00
Auriez-vous une idée?
Merci beaucoup
Denys
.
à vu de nez, au moins un point virgule de trop !
IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ?"$0.00")
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1d5a01c3aee5$87f12ee0$a601280a@phx.gbl...
Salut Thierry,
Merci, je l'essaie, et je reviens..
Bonne soirée
Denys
-----Original Message-----
Salut
Pas testé
IIF(Checkbox11 =True ,range("C"& Ligne) NIE.Textbox2 ;"$0.00")
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" <denys.perreault@rbc.com> a écrit dans le message
de news:
01cc01c3aecd$3aaeaa80$a401280a@phx.gbl...
Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes
personnes sur différentes feuilles dans un
même "workbook".
En cliquant sur le bouton de commande OK sur le Userform,
voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False
Dim Ligne As Long
With ActiveSheet()
Ligne = .[a65536].End(xlUp)(2).Row
'Ligne= première ligne disponible de la feuille
With ActiveSheet()
.Range("A" & Ligne) = "00181"
.Range("B" & Ligne) = NIE.TextBox1
.Range("C" & Ligne).Formula = " = If (Checkbox11 >True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur
du textbox 2 si le checkbox 11 est choisi. Sinon, je
vodrais que la valeur .Range("C" & Ligne) sit égale à
$0.00
à vu de nez, au moins un point virgule de trop ! IIF(Checkbox11 =True ,range("C"& Ligne) = NIE.Textbox2 ?"$0.00")
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news: 1d5a01c3aee5$87f12ee0$ Salut Thierry,
Merci, je l'essaie, et je reviens..
Bonne soirée
Denys
-----Original Message----- Salut
Pas testé IIF(Checkbox11 =True ,range("C"& Ligne) NIE.Textbox2 ;"$0.00")
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Denys" a écrit dans le message de news:
01cc01c3aecd$3aaeaa80$ Bonjour à tous,
J'ai créé un userform qui est utilisé par différentes personnes sur différentes feuilles dans un même "workbook".
En cliquant sur le bouton de commande OK sur le Userform, voici entre autres ce qui se passe:
Sub commandbutton1_click()
Application.ScreenUpdating = False Dim Ligne As Long
With ActiveSheet() Ligne = .[a65536].End(xlUp)(2).Row 'Ligne= première ligne disponible de la feuille With ActiveSheet() .Range("A" & Ligne) = "00181" .Range("B" & Ligne) = NIE.TextBox1 .Range("C" & Ligne).Formula = " = If (Checkbox11 >True then ("C & Ligne) = NIETextbox2 "
Ici en fait, je veux que la cellule C inscrive la valeur du textbox 2 si le checkbox 11 est choisi. Sinon, je vodrais que la valeur .Range("C" & Ligne) sit égale à $0.00
