Discussion :

[Yvouille]

Bonjour,

Je fais un essai de UserForm et j'ai quelques soucis.

1) Tout d'abord, j'ai essayé de remplacé la ligne qui fonctionnait bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1") = Nom_Inscrit

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A & Valeur_C1 ") = Nom_Inscrit

mais ça ne passe pas. Pouvez-vous me dire ce que je fais de faux ?

2) Ensuite, d'une manière compliquée, je cherche la dernière ligne vide à l'aide de la macro Recherche_Dernière_ligne, je l'enregistre en C1, puis je vais chercher la valeur de C1 avec la macro commandbutton1_click. Pouvez-vous m'indiquer comment je peux modifier mon code afin de ne pas passser par cette étape intermédiaire ?

Bonnes salutations.

[JPierreM]

Bonjour,

Remplacez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A & Valeur_C1 ") = Nom_Inscrit

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & Valeur_C1) = Nom_Inscrit

même chose pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("B" & Valeur_C1) = "Femme"
 
Range("B" & Valeur_C1) = "Homme"

Pour la 2ème question

dans la macro commandbutton1_click() remplacez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Recherche_Dernière_ligne
   Valeur_C1 = Range("C1").Value

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set ShtR = Sheets("Tabelle1")
Dernière_ligne = ShtR.Range("A" & Rows.Count).End(xlUp).Row+1

[Yvouille]

Merci infiniment Jean-Pierre pour ta réponse. Ca fonctionne à merveille.

Je me permets d'abuser ; toujours dans le même code, peux-tu m'expliquer comment fonctionne la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (AdresseEstValide()) Then

A te relire.

[JPierreM]

Dans le code il y a une fonction qui s’appelle « AdresseEstValide », elle est déclarée de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Function AdresseEstValide() As Boolean

Cela signifie qu’elle renvoie une valeur de type boolean (True ou False)

Cette fonction permet de savoir si le nombre de caractères inscrit dans la TextBox >0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

((Len(Trim(Me.Nom_inscrit.Text)) > 0)

donc en fait savoir si quelque chose est inscrit dans la TextBox, auquel cas la fonction renverra True

Dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (AdresseEstValide())

Il est sous entendu AdresseEstValide()=True

Pour bien comprendre le mieux est de faire fonctionner le code en pas et à pas

[Yvouille]

Génial, ton explication claire et précise m'a permit de bien comprendre comment tout ça fonctionnait.

Merci infiniment pour toutes tes réponses ; c'était super sympa.

Bonnes salutations.

Yvouille