Boutton actif dans USERFOM si présence texte dans cellule Résolu/Fermé

Question

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

Private Sub CommandButton3_Click()If Sheets("Résultat").Range("J8") <> "Fixe" ThenSheets("Résultat").Range("D14").Value = Sheets("Résultat").Range("G14").ValueEnd IfUnload MeEnd Sub




Configuration: Windows 7 / Chrome 34.0.1847.131

Mike-31 · Answer

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]

Gilles.DR315 · Answer

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

Mike-31 · Answer

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

Gilles.DR315 · Answer

Merci à toi pour ton aide et tes conseils.
effectivement, problème d'espace.

Amicalement

Boutton actif dans USERFOM si présence texte dans cellule

4 réponses

Discussions similaires