Code VBA - Référence à une cellule et autre

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:

---

Range("A1") = Nom_Inscrit

---

par

Code:

---

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.

Bonjour,

Remplacez

Code:

---

Range("A & Valeur_C1 ") = Nom_Inscrit

---

par

Code:

---

Range("A" & Valeur_C1) = Nom_Inscrit

---

même chose pour

Code:

---

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:

---

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

---

par

Code:

---

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

---

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:

---

If (AdresseEstValide()) Then

---

A te relire.

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

Code:

---

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:

---

((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:

---

If (AdresseEstValide())

---

Il est sous entendu AdresseEstValide()=True

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

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