Discussion :

[MystWave]

Bonjour,
Je suis novice dans vba.
Je souhaite avec le programme (ci dessous ) sélectionner la ligne du module écrit dans l'input box.
Puis a partir de cette même ligne , je souhaite cherché la première case vide et y inscrire une note ( allant de 0 à 20).
D'apres l'option explicit vba ainsi que quand je lance mon bouton j'ai un problème a la ligne en rouge.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton2_Click()
Dim recep As Integer
Dim Ligne As Range
Dim Module As String
Dim c As Range
Dim note As Single
Module = InputBox("Saisissez votre module")
note = InputBox(" Saisissez votre note")
recep = ActiveSheet.Range("a:a").Find(what:=Module).Row
         Set Ligne = Worksheets("Module").Range("&recep&:&recep&").Find(what:="").Row  
Ligne.Value = note
End Sub

Je souhaite donc connaitre mon erreur dans cette même ligne.

Cordialement

[Gado2600]

Bonjour,

Ta ligne est bizarre effectivement :

Code :

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

Set Ligne = Worksheets("Module").Range("&recep&:&recep&").Find(what:="").Row

Corrigé :

Code :

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

Set Ligne = Worksheets("Module").Range(recep & ":" & recep).Find(what:="").Row

Tu auras ainsi : "1:1" plutôt que "&recep&:&recep&" comme adresse de recherche

Cordialement,

[MystWave]

Bonjour,

Merci pour votre réponse, je pensais aussi que cela venais de la concaténation.
En essayant avec votre code, cela me renvoie encore a une erreur :

Erreur 424

Quand je click sur débogage cela me renvoie a la même ligne de code.

Cordialement

[Gado2600]

Bonjour,

Je viens de relire ton code et euh... ton

Code :

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

Worksheets("Module")

Tu as un onglet qui s'appelle "Module" ou il s'agit de la variable "Module" que tu saisis dans une inputbox ?
Si c'est le deuxième cas, il faut retirer les ".

Après, tu demandes à ton code :
Range = entier

Incorrect ! Retires le .Row à la fin qui renvoi une valeur numérique (si ton .find te trouve une adresse de cellule à exploiter).
Bref, mets ceci :

Code :

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

1
2
Set Ligne = Worksheets("Module").Range(recep & ":" & recep).Find(what:="")
if Ligne is nothing then msgbox "Adresse non trouvée", vbexclamation, "Erreur" else ligne = note

Cordialement,