Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
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
j
je suppose qu'il suffit de modifier la macro pour que, au lieu de recopier en A3, elle recopie dans la première case vide de ligne 3. par exemple Sheets("feuil3").Rows(3).Cells.Find("*", , , , , xlPrevious).Offset(0, 1) contenu du textbox
http://jacxl.free.fr
"GARAULT" a écrit dans le message de news:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
je suppose qu'il suffit de modifier la macro pour que, au lieu de recopier
en A3, elle recopie dans la première case vide de ligne 3.
par exemple
Sheets("feuil3").Rows(3).Cells.Find("*", , , , , xlPrevious).Offset(0, 1) contenu du textbox
J@C
http://jacxl.free.fr
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de
news: C61C4EF1-CE1C-4C0C-9906-DAC83A035E74@microsoft.com...
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et
un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de
mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
je suppose qu'il suffit de modifier la macro pour que, au lieu de recopier en A3, elle recopie dans la première case vide de ligne 3. par exemple Sheets("feuil3").Rows(3).Cells.Find("*", , , , , xlPrevious).Offset(0, 1) contenu du textbox
http://jacxl.free.fr
"GARAULT" a écrit dans le message de news:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
garnote
Salut,
Un exemple à adapter :
Private Sub CommandButton1_Click() Dim p As Range Dim t As String Set p = Worksheets("Feuil3").Rows(3) t = UserForm1.TextBox1 If p.Cells(1, 1) = "" Then p.Cells(1, 1) = t _ Else p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(0, 1) = t End Sub
Serge
"GARAULT" a écrit dans le message de news:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
Salut,
Un exemple à adapter :
Private Sub CommandButton1_Click()
Dim p As Range
Dim t As String
Set p = Worksheets("Feuil3").Rows(3)
t = UserForm1.TextBox1
If p.Cells(1, 1) = "" Then p.Cells(1, 1) = t _
Else p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(0, 1) = t
End Sub
Serge
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de news: C61C4EF1-CE1C-4C0C-9906-DAC83A035E74@microsoft.com...
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
Private Sub CommandButton1_Click() Dim p As Range Dim t As String Set p = Worksheets("Feuil3").Rows(3) t = UserForm1.TextBox1 If p.Cells(1, 1) = "" Then p.Cells(1, 1) = t _ Else p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(0, 1) = t End Sub
Serge
"GARAULT" a écrit dans le message de news:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
garnote
77 caractères en moins :
Private Sub CommandButton1_Click() Dim p As Worksheet, t As String Set p = [Feuil3] t = UserForm1.TextBox1 If p.[a3] = "" Then p.[a3] = t Else p.Rows(3).Find("") = t End Sub
Peut-on faire plus court tout en déclarant les variables ? ;-)
Serge
"garnote" a écrit dans le message de news: %
Salut,
Un exemple à adapter :
Private Sub CommandButton1_Click() Dim p As Range Dim t As String Set p = Worksheets("Feuil3").Rows(3) t = UserForm1.TextBox1 If p.Cells(1, 1) = "" Then p.Cells(1, 1) = t _ Else p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(0, 1) = t End Sub
Serge
"GARAULT" a écrit dans le message de news:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
77 caractères en moins :
Private Sub CommandButton1_Click()
Dim p As Worksheet, t As String
Set p = [Feuil3]
t = UserForm1.TextBox1
If p.[a3] = "" Then p.[a3] = t Else p.Rows(3).Find("") = t
End Sub
Peut-on faire plus court tout en déclarant les variables ? ;-)
Serge
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: %23Wh7POxBIHA.5980@TK2MSFTNGP04.phx.gbl...
Salut,
Un exemple à adapter :
Private Sub CommandButton1_Click()
Dim p As Range
Dim t As String
Set p = Worksheets("Feuil3").Rows(3)
t = UserForm1.TextBox1
If p.Cells(1, 1) = "" Then p.Cells(1, 1) = t _
Else p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(0, 1) = t
End Sub
Serge
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de news:
C61C4EF1-CE1C-4C0C-9906-DAC83A035E74@microsoft.com...
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
Private Sub CommandButton1_Click() Dim p As Worksheet, t As String Set p = [Feuil3] t = UserForm1.TextBox1 If p.[a3] = "" Then p.[a3] = t Else p.Rows(3).Find("") = t End Sub
Peut-on faire plus court tout en déclarant les variables ? ;-)
Serge
"garnote" a écrit dans le message de news: %
Salut,
Un exemple à adapter :
Private Sub CommandButton1_Click() Dim p As Range Dim t As String Set p = Worksheets("Feuil3").Rows(3) t = UserForm1.TextBox1 If p.Cells(1, 1) = "" Then p.Cells(1, 1) = t _ Else p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(0, 1) = t End Sub
Serge
"GARAULT" a écrit dans le message de news:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
lSteph
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
--
lSteph
(sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT <GARA...@discussions.microsoft.com> wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
lSteph
...petite rectif
Private Sub CommandButton1_Click() [IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1 End Sub
':)
On 5 oct, 11:41, lSteph wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textb ox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 d e mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
...petite rectif
Private Sub CommandButton1_Click()
[IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1
End Sub
':)
On 5 oct, 11:41, lSteph <gmLSt...@gmail.com> wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
--
lSteph
(sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT <GARA...@discussions.microsoft.com> wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textb ox et un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 d e mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
Private Sub CommandButton1_Click() [IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1 End Sub
':)
On 5 oct, 11:41, lSteph wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textb ox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 d e mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
garnote
ou bien :
Private Sub CommandButton1_Click() [Feuil3].[IV3].End(1).Offset(0, Abs([Feuil3].[a3] <> "")) = TextBox1 End Sub
Qu'est-ce qu'on s'amuse alors ;-) Serge
"lSteph" a écrit dans le message de news: ...petite rectif
Private Sub CommandButton1_Click() [IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1 End Sub
':)
On 5 oct, 11:41, lSteph wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
ou bien :
Private Sub CommandButton1_Click()
[Feuil3].[IV3].End(1).Offset(0, Abs([Feuil3].[a3] <> "")) = TextBox1
End Sub
Qu'est-ce qu'on s'amuse alors ;-)
Serge
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news: 1191577686.821681.236090@y42g2000hsy.googlegroups.com...
...petite rectif
Private Sub CommandButton1_Click()
[IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1
End Sub
':)
On 5 oct, 11:41, lSteph <gmLSt...@gmail.com> wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
--
lSteph
(sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT <GARA...@discussions.microsoft.com> wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
Private Sub CommandButton1_Click() [Feuil3].[IV3].End(1).Offset(0, Abs([Feuil3].[a3] <> "")) = TextBox1 End Sub
Qu'est-ce qu'on s'amuse alors ;-) Serge
"lSteph" a écrit dans le message de news: ...petite rectif
Private Sub CommandButton1_Click() [IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1 End Sub
':)
On 5 oct, 11:41, lSteph wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
LSteph
..alors.. une autre variante:
With Feuil3 .[IV3].End(1).Offset(0, (.[a3] <> "") * -1) = TextBox1 End With
;o)
ou bien :
Private Sub CommandButton1_Click() [Feuil3].[IV3].End(1).Offset(0, Abs([Feuil3].[a3] <> "")) = TextBox1 End Sub
Qu'est-ce qu'on s'amuse alors ;-) Serge
"lSteph" a écrit dans le message de news: ...petite rectif
Private Sub CommandButton1_Click() [IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1 End Sub
':)
On 5 oct, 11:41, lSteph wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous. Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3. Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite.... comment faire ? Merci
..alors..
une autre variante:
With Feuil3
.[IV3].End(1).Offset(0, (.[a3] <> "") * -1) = TextBox1
End With
;o)
ou bien :
Private Sub CommandButton1_Click()
[Feuil3].[IV3].End(1).Offset(0, Abs([Feuil3].[a3] <> "")) = TextBox1
End Sub
Qu'est-ce qu'on s'amuse alors ;-)
Serge
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de news: 1191577686.821681.236090@y42g2000hsy.googlegroups.com...
...petite rectif
Private Sub CommandButton1_Click()
[IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1
End Sub
':)
On 5 oct, 11:41, lSteph <gmLSt...@gmail.com> wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
--
lSteph
(sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT <GARA...@discussions.microsoft.com> wrote:
Bonjour à tous.
Je souhaiterais savoir si quelqu'un pourrais m'aider....
Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un
bouton valider.
Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon
classeur exel ligne A3.
Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du
textbox aille dans la case B3 et ainsi de suite....
comment faire ? Merci
With Feuil3 .[IV3].End(1).Offset(0, (.[a3] <> "") * -1) = TextBox1 End With
;o)
ou bien :
Private Sub CommandButton1_Click() [Feuil3].[IV3].End(1).Offset(0, Abs([Feuil3].[a3] <> "")) = TextBox1 End Sub
Qu'est-ce qu'on s'amuse alors ;-) Serge
"lSteph" a écrit dans le message de news: ...petite rectif
Private Sub CommandButton1_Click() [IV3].End(xlToLeft).Offset(0, Abs(Len([a3]) > 0)) = TextBox1 End Sub
':)
On 5 oct, 11:41, lSteph wrote:
Bonjour,
Private Sub CommandButton1_Click()
[Feuil3].[IV3].end(xltoleft)=TextBox1
End Sub
-- lSteph (sans variables cela répond à ta question Serge)
On 5 oct, 05:35, GARAULT wrote:
Bonjour à tous. Je souhaiterais savoir si quelqu'un pourrais m'aider.... Dans une fenêtre VB qui appartient à un classeur exel j'ai un textbox et un bouton valider. Quand je clic sur valider, le contenu de la textbox va dans la feuil3 de mon classeur exel ligne A3. Je voudrais que si je clic à nouveau sur valider la nouvelle valeur du textbox aille dans la case B3 et ainsi de suite.... comment faire ? Merci