G
Gérard Dezamis
Guest
Bonjour le Forum
Une belle démonstration de Thierry USF Rudiments Basic comme ci-dessous :
'ici c'est ce qui se passe quand on click sur le Bouton "Validation"
Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'ici je repère la dernière ligne vide pour la Collections des données
L = Sheets("Collection").Range("C65536").End(xlUp).Row + 1
'ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!
If TextBox1 = "" Then
MsgBox "Vous n'avez rien saisi dans la textBox1 !"
TextBox1.SetFocus
Exit Sub
End If
'Pour voir se qui se passe je bascule sur la feuille "Collection"
Sheets("Collection").Activate
'Ici c'est le report de la saisie dans la feuille
With Sheets("Collection")
.Range("C" & L).Value = TextBox1.Value
.Range("D" & L).Value = TextBox2.Value
.Range("E" & L).Value = TextBox3.Value
End With
'Ici je vide les trois TextBox
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub
Fonctionne à merveille. Comme d'habitude .....Un grand Merci au passage.
J'essaye de la transformer pour conserver le même principe mais sans utiliser de Userform. C'est à dire que mes données sont éparses (c'est une sorte de formulaire) dans une feuille et doivent se ranger gentillement dans la feuille Collection bien en ligne. (macro sera placée dans un bouton) et ma feuille originelle vidée de son contenu.
Je pensais remplacer "simplement" TextBox1. Value" par Range("Date").value par exemple cette cellule nommée qui contient une date. et ainsi de suite (Textbox2. Value par Range("C32").value ... etc) mais cette substitution ne fonctionne pas.
Qui pourrait m'aider ? Il me manque encore pas mal de marche pour atteindre même la .... VBA (Véritable Basique Attitude)
Vous en remerciant par avance.
Bien cordialement
@+
GD
Une belle démonstration de Thierry USF Rudiments Basic comme ci-dessous :
'ici c'est ce qui se passe quand on click sur le Bouton "Validation"
Private Sub CommandButton1_Click()
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'ici je repère la dernière ligne vide pour la Collections des données
L = Sheets("Collection").Range("C65536").End(xlUp).Row + 1
'ici un Test exemple pour la TextBox1, si elle est vide on est viré !!!
If TextBox1 = "" Then
MsgBox "Vous n'avez rien saisi dans la textBox1 !"
TextBox1.SetFocus
Exit Sub
End If
'Pour voir se qui se passe je bascule sur la feuille "Collection"
Sheets("Collection").Activate
'Ici c'est le report de la saisie dans la feuille
With Sheets("Collection")
.Range("C" & L).Value = TextBox1.Value
.Range("D" & L).Value = TextBox2.Value
.Range("E" & L).Value = TextBox3.Value
End With
'Ici je vide les trois TextBox
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
'ici je remets le curseur en textbox1
TextBox1.SetFocus
End Sub
Fonctionne à merveille. Comme d'habitude .....Un grand Merci au passage.
J'essaye de la transformer pour conserver le même principe mais sans utiliser de Userform. C'est à dire que mes données sont éparses (c'est une sorte de formulaire) dans une feuille et doivent se ranger gentillement dans la feuille Collection bien en ligne. (macro sera placée dans un bouton) et ma feuille originelle vidée de son contenu.
Je pensais remplacer "simplement" TextBox1. Value" par Range("Date").value par exemple cette cellule nommée qui contient une date. et ainsi de suite (Textbox2. Value par Range("C32").value ... etc) mais cette substitution ne fonctionne pas.
Qui pourrait m'aider ? Il me manque encore pas mal de marche pour atteindre même la .... VBA (Véritable Basique Attitude)
Vous en remerciant par avance.
Bien cordialement
@+
GD