Boutton actif dans USERFOM si présence texte dans cellule
Résolu
Gilles.DR315
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
Gilles.DR315 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Gilles.DR315 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Boutton actif dans USERFOM si présence texte dans cellule
- Excel cellule couleur si condition texte - Guide
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Aller à la ligne dans une cellule excel - Guide
- Si cellule contient texte alors ✓ - Forum Excel
- Actif il y a 2 heures messenger ✓ - Forum Facebook
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]
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
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
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
