Pb avec conditions "If"

Bonjour à tous,

Mon code plante sur la seconde condition :

Dim Q As Integer
'badge
If Feuil6.Range("A" & "1").Value <> "" Then ' si non vide
Q = Feuil6.Range("A" & "1").Value + 1
Feuil2.Range("B" & Q) = UserForm1.Label1.Caption '
End If

'br
If Feuil6.Range("B" & "2").Value <> "" Then
Q = Feuil6.Range("B" & "2").Value + 1
Feuil2.Range("C" & Q) = UserForm1.Label1.Caption  '
End If

• Je test si la cellule situé en feuil 6 n'est pas vide (cette cellule contient un Nb).
• Si oui je donne la valeur de cette cellule à la variable "Q"
• J'attribue à une cellule en feuil 2 colonne A ou B selon le test, et en ligne variable Q

Merci de vos lumières ! ;o)

Bonjour,

Est-ce que dans ton code tu as une ligne?

set Feuil6=sheets("Nom de ta feuille")

Donne un peu plus de code ou un fichier anonymé.

Cordialement

Merci pour ta réponse Ddetp88,

Non je n'ai pas ce code.

set Feuil6=sheets("Nom de ta feuille")

Je mets mon fichier en PJ.

Le but de le fichier est de gérer le prêt et les prêts et les restitutions de badges et de clés pour accéder à certains sites. .

Je demande votre indulgence : le code n'est pas académique et en phase de debbugage intersidérale !

Bonjour,

Cela bug sur ton deuxième code car tu ajoute 1 à une cellule contenant du texte

Q = Feuil6.Range("B" & "2").Value + 1

Tu peux mettre directement

Q = Feuil6.Range("B2").Value + 1

Mais B2 = Clé BR N°1, donc tu ne peux pas l'incrémenter !

edit : M12 est passé avant moi !

Alleluïa ! Pb résolu !

Merci à tous pour votre aide !

Bonjour,

M12 et Steelson sont passés avant moi

Bonne journée

ddetp88 a écrit :

Bonjour,

M12 et Steelson sont passés avant moi

Bonne journée

J'ai aussi appris quelque chose avec ta réponse Ddetp88!

Merci et bon dimanche au coin du feu !