J'ai un formulaire(userform) qui incrémente une feuille
de A2 à G2, mon gros problème est que mon bouton suivant (code ci
dessous), rapport bien le contenu
mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3
puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click()
Dim i As Integer
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
A = A + 1
Ctrl.Value = ""
End If
Next Ctrl
End Sub
comment corriger la macro ci dessus
MERCI BEAUCOUP
Mike
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
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
Pounet95
Bonjour, Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans les cellules. Je suggérerais donc de placer après le code qui 'écrit' quelque chose du genre
ligne¬tivecell.row 'ligne de la cellule active range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous), rapport bien le contenu mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3 puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then A = A + 1 Ctrl.Value = "" End If Next Ctrl End Sub
comment corriger la macro ci dessus MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Bonjour,
Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans
les cellules.
Je suggérerais donc de placer après le code qui 'écrit' quelque chose du
genre
ligne¬tivecell.row 'ligne de la cellule active
range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" <gnimitz@msn.com> a écrit dans le message de news:
mn.52cd7d519326154d.15284@msn.com...
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille
de A2 à G2, mon gros problème est que mon bouton suivant (code ci
dessous), rapport bien le contenu
mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3
puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click()
Dim i As Integer
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
A = A + 1
Ctrl.Value = ""
End If
Next Ctrl
End Sub
comment corriger la macro ci dessus
MERCI BEAUCOUP
Mike
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
Bonjour, Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans les cellules. Je suggérerais donc de placer après le code qui 'écrit' quelque chose du genre
ligne¬tivecell.row 'ligne de la cellule active range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous), rapport bien le contenu mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3 puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then A = A + 1 Ctrl.Value = "" End If Next Ctrl End Sub
comment corriger la macro ci dessus MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
mike
Hello,
désolé, mais quand je cliique sur suivant, le currseur se déplace en A3 mais lorsque je saisie mon textbox, il écrit toujours en A2, il ne faudrais pas que je change le code du champ de saisie ???
Private Sub ComboBox4_Change() [A2] = UserForm1.ComboBox4 End Sub
merci quand même :)
Mike
Pounet95 a couché sur son écran :
Bonjour, Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans les cellules. Je suggérerais donc de placer après le code qui 'écrit' quelque chose du genre
ligne¬tivecell.row 'ligne de la cellule active range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous), rapport bien le contenu mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3 puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then A = A + 1 Ctrl.Value = "" End If Next Ctrl End Sub
comment corriger la macro ci dessus MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
Hello,
désolé, mais quand je cliique sur suivant, le currseur se déplace en A3
mais lorsque je saisie mon textbox, il écrit toujours en A2,
il ne faudrais pas que je change le code du champ de saisie ???
Private Sub ComboBox4_Change()
[A2] = UserForm1.ComboBox4
End Sub
merci quand même :)
Mike
Pounet95 a couché sur son écran :
Bonjour,
Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans
les cellules.
Je suggérerais donc de placer après le code qui 'écrit' quelque chose du
genre
ligne¬tivecell.row 'ligne de la cellule active
range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" <gnimitz@msn.com> a écrit dans le message de news:
mn.52cd7d519326154d.15284@msn.com...
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille
de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous),
rapport bien le contenu
mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3
puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click()
Dim i As Integer
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
A = A + 1
Ctrl.Value = ""
End If
Next Ctrl
End Sub
comment corriger la macro ci dessus
MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
désolé, mais quand je cliique sur suivant, le currseur se déplace en A3 mais lorsque je saisie mon textbox, il écrit toujours en A2, il ne faudrais pas que je change le code du champ de saisie ???
Private Sub ComboBox4_Change() [A2] = UserForm1.ComboBox4 End Sub
merci quand même :)
Mike
Pounet95 a couché sur son écran :
Bonjour, Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans les cellules. Je suggérerais donc de placer après le code qui 'écrit' quelque chose du genre
ligne¬tivecell.row 'ligne de la cellule active range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous), rapport bien le contenu mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3 puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then A = A + 1 Ctrl.Value = "" End If Next Ctrl End Sub
comment corriger la macro ci dessus MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
anomymousA
bonjour,
ta demande n'est pas assez précise. Je ne vois pas ce que tu veux faire. Par ailleurs; tu évoques le fait que t cliques sur suivant mais qu'est ce que Suivant ?
A+
Hello,
désolé, mais quand je cliique sur suivant, le currseur se déplace en A3 mais lorsque je saisie mon textbox, il écrit toujours en A2, il ne faudrais pas que je change le code du champ de saisie ???
Private Sub ComboBox4_Change() [A2] = UserForm1.ComboBox4 End Sub
merci quand même :)
Mike
Pounet95 a couché sur son écran :
Bonjour, Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans les cellules. Je suggérerais donc de placer après le code qui 'écrit' quelque chose du genre
ligne¬tivecell.row 'ligne de la cellule active range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous), rapport bien le contenu mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3 puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then A = A + 1 Ctrl.Value = "" End If Next Ctrl End Sub
comment corriger la macro ci dessus MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
bonjour,
ta demande n'est pas assez précise. Je ne vois pas ce que tu veux faire. Par
ailleurs; tu évoques le fait que t cliques sur suivant mais qu'est ce que
Suivant ?
A+
Hello,
désolé, mais quand je cliique sur suivant, le currseur se déplace en A3
mais lorsque je saisie mon textbox, il écrit toujours en A2,
il ne faudrais pas que je change le code du champ de saisie ???
Private Sub ComboBox4_Change()
[A2] = UserForm1.ComboBox4
End Sub
merci quand même :)
Mike
Pounet95 a couché sur son écran :
Bonjour,
Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans
les cellules.
Je suggérerais donc de placer après le code qui 'écrit' quelque chose du
genre
ligne¬tivecell.row 'ligne de la cellule active
range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" <gnimitz@msn.com> a écrit dans le message de news:
mn.52cd7d519326154d.15284@msn.com...
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille
de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous),
rapport bien le contenu
mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3
puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click()
Dim i As Integer
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Then
A = A + 1
Ctrl.Value = ""
End If
Next Ctrl
End Sub
comment corriger la macro ci dessus
MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com
ta demande n'est pas assez précise. Je ne vois pas ce que tu veux faire. Par ailleurs; tu évoques le fait que t cliques sur suivant mais qu'est ce que Suivant ?
A+
Hello,
désolé, mais quand je cliique sur suivant, le currseur se déplace en A3 mais lorsque je saisie mon textbox, il écrit toujours en A2, il ne faudrais pas que je change le code du champ de saisie ???
Private Sub ComboBox4_Change() [A2] = UserForm1.ComboBox4 End Sub
merci quand même :)
Mike
Pounet95 a couché sur son écran :
Bonjour, Je ne vois pas trop dans le code que tu cites, là où se fait l'écriture dans les cellules. Je suggérerais donc de placer après le code qui 'écrit' quelque chose du genre
ligne¬tivecell.row 'ligne de la cellule active range("A"&ligne+1).select 'passer en A de la ligne suivante
Cela répond au problème ? -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"mike" a écrit dans le message de news:
Hello à tous !!!!
J'ai un formulaire(userform) qui incrémente une feuille de A2 à G2, mon gros problème est que mon bouton suivant (code ci dessous), rapport bien le contenu mais lorsque je fait suivant il réécris en A2 à G2
Moi je désirerai qu'il continu en A3 B3 C3 D3 E3 F3 G3 puis quand je fais suivant qu'il continue A4 etc.......
Private Sub CommandButton3_Click() Dim i As Integer For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then A = A + 1 Ctrl.Value = "" End If Next Ctrl End Sub
comment corriger la macro ci dessus MERCI BEAUCOUP
Mike
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
-- Ceci est une signature automatique de MesNews. Site : http://mesnews.no-ip.com
