bien non désolé sa répond pas à mes attentes ou bien je suis trop nul
ben toutes les réponses que tu as déjà eues ne conviennent pas ?
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
j
je reprends la sub de serge un poil modifiée :
Private Sub CommandButton1_Click() Dim p As Range Dim t As String Set p = Worksheets("Feuil2").Columns(2) t = TextBox3.Value If p.Cells(6) = "" Then p.Cells(6) = " " p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t End Sub
les Dim c'est pour faire joli (j'entends déjà les hurlements des puristes) Set p = Worksheets("Feuil2").Columns(2), tu nommes p l'objet colonne B t = TextBox3.Value tu récupères la valeur de ton textbox3 If p.Cells(1, 1) = "" Then p.Cells(1, 1) = " " ça c'est juste question de dire qu'il y a déjà quelque chose dans la colonne B p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t là c'est plus rigolo, on demande à excel de chercher dans p (donc dans la colonne B), la première cellule contenant quelque chose ("*" est un joker qui veut dire pas vide), en partant à l'envers donc de bas en haut (xlprevious), et quand on a trouvé (et on trouvera puisqu'on a pris soin de s'assurer qu'il avait bien quelque chose) on décale d'une ligne vers le bas (offset(1,0) ) de facon à se trouver dans la première cellule vide de la colonne B pour y inscrire t, et donc le contenu du textbox ça va ?
http://jacxl.free.fr
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
je reprends la sub de serge un poil modifiée :
Private Sub CommandButton1_Click()
Dim p As Range
Dim t As String
Set p = Worksheets("Feuil2").Columns(2)
t = TextBox3.Value
If p.Cells(6) = "" Then p.Cells(6) = " "
p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t
End Sub
les Dim c'est pour faire joli (j'entends déjà les hurlements des puristes)
Set p = Worksheets("Feuil2").Columns(2), tu nommes p l'objet colonne B
t = TextBox3.Value tu récupères la valeur de ton textbox3
If p.Cells(1, 1) = "" Then p.Cells(1, 1) = " " ça c'est juste question de
dire qu'il y a déjà quelque chose dans la colonne B
p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t là
c'est plus rigolo, on demande à excel de chercher dans p (donc dans la
colonne B), la première cellule contenant quelque chose ("*" est un joker
qui veut dire pas vide), en partant à l'envers donc de bas en haut
(xlprevious), et quand on a trouvé (et on trouvera puisqu'on a pris soin de
s'assurer qu'il avait bien quelque chose) on décale d'une ligne vers le bas
(offset(1,0) ) de facon à se trouver dans la première cellule vide de la
colonne B pour y inscrire t, et donc le contenu du textbox
ça va ?
j@c
http://jacxl.free.fr
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de
news: AB573045-BEE0-422F-B913-71C58EA4CAD6@microsoft.com...
bonjour,
commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '
Private Sub CommandButton1_Click() Dim p As Range Dim t As String Set p = Worksheets("Feuil2").Columns(2) t = TextBox3.Value If p.Cells(6) = "" Then p.Cells(6) = " " p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t End Sub
les Dim c'est pour faire joli (j'entends déjà les hurlements des puristes) Set p = Worksheets("Feuil2").Columns(2), tu nommes p l'objet colonne B t = TextBox3.Value tu récupères la valeur de ton textbox3 If p.Cells(1, 1) = "" Then p.Cells(1, 1) = " " ça c'est juste question de dire qu'il y a déjà quelque chose dans la colonne B p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t là c'est plus rigolo, on demande à excel de chercher dans p (donc dans la colonne B), la première cellule contenant quelque chose ("*" est un joker qui veut dire pas vide), en partant à l'envers donc de bas en haut (xlprevious), et quand on a trouvé (et on trouvera puisqu'on a pris soin de s'assurer qu'il avait bien quelque chose) on décale d'une ligne vers le bas (offset(1,0) ) de facon à se trouver dans la première cellule vide de la colonne B pour y inscrire t, et donc le contenu du textbox ça va ?
http://jacxl.free.fr
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
garnote
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click() If [Feuil2].[b7] = "" Then [Feuil2].[b7] = TextBox3 Else [Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3 End If End Sub
Serge
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click()
If [Feuil2].[b7] = "" Then
[Feuil2].[b7] = TextBox3
Else
[Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3
End If
End Sub
Serge
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de news: AB573045-BEE0-422F-B913-71C58EA4CAD6@microsoft.com...
bonjour,
commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '
Private Sub CommandButton1_Click() If [Feuil2].[b7] = "" Then [Feuil2].[b7] = TextBox3 Else [Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3 End If End Sub
Serge
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
garnote
Plus propre ;-)
Private Sub CommandButton1_Click() Dim F As Worksheet Dim T As String Set F = [Feuil2] T = TextBox3 'Le 3 du End(3) signifie xlUp If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T End Sub
Serge
"garnote" a écrit dans le message de news:
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click() If [Feuil2].[b7] = "" Then [Feuil2].[b7] = TextBox3 Else [Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3 End If End Sub
Serge
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
Plus propre ;-)
Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim T As String
Set F = [Feuil2]
T = TextBox3
'Le 3 du End(3) signifie xlUp
If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T
End Sub
Serge
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: u2muvS4BIHA.4176@TK2MSFTNGP06.phx.gbl...
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click()
If [Feuil2].[b7] = "" Then
[Feuil2].[b7] = TextBox3
Else
[Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3
End If
End Sub
Serge
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de news:
AB573045-BEE0-422F-B913-71C58EA4CAD6@microsoft.com...
bonjour,
commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '
Private Sub CommandButton1_Click() Dim F As Worksheet Dim T As String Set F = [Feuil2] T = TextBox3 'Le 3 du End(3) signifie xlUp If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T End Sub
Serge
"garnote" a écrit dans le message de news:
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click() If [Feuil2].[b7] = "" Then [Feuil2].[b7] = TextBox3 Else [Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3 End If End Sub
Serge
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
GARAULT
Presque ça, j'explique :
If CommandButton3.Visible = True Then T = TextBox4 'Le 3 du End(3) signifie xlUp If F.[f8] = "" Then F.[f8] = T Else F.[f65535].End(3).Offset(1, 0) = T
' et écrit dans G8 "." ( tout en conservant le principe d'écrire sur la bonne ligne)
Plus propre ;-)
Private Sub CommandButton1_Click() Dim F As Worksheet Dim T As String Set F = [Feuil2] T = TextBox3 'Le 3 du End(3) signifie xlUp If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T End Sub
Serge
"garnote" a écrit dans le message de news:
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click() If [Feuil2].[b7] = "" Then [Feuil2].[b7] = TextBox3 Else [Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3 End If End Sub
Serge
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '
Presque ça, j'explique :
If CommandButton3.Visible = True Then
T = TextBox4
'Le 3 du End(3) signifie xlUp
If F.[f8] = "" Then F.[f8] = T Else F.[f65535].End(3).Offset(1, 0) = T
' et écrit dans G8 "."
( tout en conservant le principe d'écrire sur la bonne ligne)
Plus propre ;-)
Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim T As String
Set F = [Feuil2]
T = TextBox3
'Le 3 du End(3) signifie xlUp
If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T
End Sub
Serge
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news: u2muvS4BIHA.4176@TK2MSFTNGP06.phx.gbl...
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click()
If [Feuil2].[b7] = "" Then
[Feuil2].[b7] = TextBox3
Else
[Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3
End If
End Sub
Serge
"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de news:
AB573045-BEE0-422F-B913-71C58EA4CAD6@microsoft.com...
bonjour,
commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '
If CommandButton3.Visible = True Then T = TextBox4 'Le 3 du End(3) signifie xlUp If F.[f8] = "" Then F.[f8] = T Else F.[f65535].End(3).Offset(1, 0) = T
' et écrit dans G8 "." ( tout en conservant le principe d'écrire sur la bonne ligne)
Plus propre ;-)
Private Sub CommandButton1_Click() Dim F As Worksheet Dim T As String Set F = [Feuil2] T = TextBox3 'Le 3 du End(3) signifie xlUp If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T End Sub
Serge
"garnote" a écrit dans le message de news:
Salut Garault,
Et ceci, ça te convient ?
Private Sub CommandButton1_Click() If [Feuil2].[b7] = "" Then [Feuil2].[b7] = TextBox3 Else [Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3 End If End Sub
Serge
"GARAULT" a écrit dans le message de news:
bonjour,
commandbutton envoie une valeur. qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' ' par une formule... merci
Private Sub CommandButton1_Click()
' si la cellule b7 de la feuil2 est vide alors : ' .Cells(7, 2).Value = TextBox3.Value ' sinon écrire dans b8 sinon b9 ..... ect '