Boutton actif dans USERFOM si présence texte dans cellule
Résolu
Bonjour,
Je galère avec mes premiers USERFORM.
Je souhaite via le boutton 3 copier le contenu de ma cellule G14 en D14 si dans J8 il n'y a pas le mot "FIXE"
Si le mot "Fixe" est trouvé en J8 = ne rien faire.
Ca marche si bien dans un module, et USERFORM çà merdouille
Merci de votre aide
Je galère avec mes premiers USERFORM.
Je souhaite via le boutton 3 copier le contenu de ma cellule G14 en D14 si dans J8 il n'y a pas le mot "FIXE"
Si le mot "Fixe" est trouvé en J8 = ne rien faire.
Ca marche si bien dans un module, et USERFORM çà merdouille
Merci de votre aide
Private Sub CommandButton3_Click()
If Sheets("Résultat").Range("J8") <> "Fixe" Then
Sheets("Résultat").Range("D14").Value = Sheets("Résultat").Range("G14").Value
End If
Unload Me
End Sub
4 réponses
-
bonjour,
If Range("J8") <> "FIXE" Then Range("D14") = Range("G14")
mais ce code copiera la cellule G14 en D14 même si J8 est vide alors peut être comme cela
If Range("J8") <> "FIXE" And Range("J8") <> "" Then Range("D14") = Range("G14")
ou encore
If Range("J8") = "FIXE" Then Exit Sub Else Range("D14") = Range("G14")
ou
If Range("J8") = "FIXE" Or Range("J8") <>"" Then Exit Sub Else Range("D14") = Range("G14")
écriture plus technique
If [J8] <> "FIXE" Or [J8] <> "" Then [D14]) = [G14]
-
re-
non hélas çà ne fonctionne pas.
Merci
Tant pis
j'ai bidouillé avec J9 pour arriver à un résultat
=SI(ESTERR(CHERCHE("FIXE";J8));"";1)
et dans USERFORM
Private Sub CommandButton3_Click()
If Range("J9") <> 1 Then Range("D14") = Range("G14")
Unload Me
End Sub -
Re,
Comment ça ne fonctionne pas, avant te poster, j'essaye tous mes codes,
If Range("J9") <> 1 Then Range("D14") = Range("G14")
est exactement semblable à
If Range("J8") <> "FIXE" Then Range("D14") = Range("G14")
il faudrait certainement voir la saisie de J8 qui doit être exactement identique au code
si une formule ou ta saisie est FIXE, il faut que dans ton code ce soit pareil "FIXE" sans espace ni minuscule d'un côté comme de l'autre
-
Merci à toi pour ton aide et tes conseils.
effectivement, problème d'espace.
Amicalement
