J'utilise une panoplie de userform avec différents champs. Si une
personne rentre "toto" dans un refedit alors qu'il devrait sélectionner
une plage, la macro plante. Et j'ai d'autres exemple dans le style pour
des entrées qui ne correspondent pas à la demande.
Comment gérer ce problème pour le refedit par exemple ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Sylian,
peut mettre ton fichier en ligne sur ci-joint ?
isabelle
Sylian a écrit :
Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?
Merci de votre aide.
Sylian
bonjour Sylian,
peut mettre ton fichier en ligne sur ci-joint ?
isabelle
Sylian a écrit :
Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une
personne rentre "toto" dans un refedit alors qu'il devrait
sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans
le style pour des entrées qui ne correspondent pas à la demande.
Comment gérer ce problème pour le refedit par exemple ?
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?
Merci de votre aide.
Sylian
MichDenis
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire et que la procédure est lancée par un bouton de commande.
'------------------------------------------- Sub CommandButton1_Click()
Dim Plage As Range On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value) If Plage Is Nothing Then If MsgBox("Vous n'avez pas saisi une " & _ "adresse valide d'une plage de cellule." & _ vbCrLf & vbCrLf, vbCritical _ + vbYesNo, "Attention") = vbYes Then Me.RefEdit1.Value = "" Exit Sub Else MsgBox "opération annulée." End If End If 'le reste du code End Sub '-------------------------------------------
"Sylian" a écrit dans le message de groupe de discussion : 4a36be32$0$18217$ Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?
Merci de votre aide.
Sylian
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire
et que la procédure est lancée par un bouton de commande.
'-------------------------------------------
Sub CommandButton1_Click()
Dim Plage As Range
On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value)
If Plage Is Nothing Then
If MsgBox("Vous n'avez pas saisi une " & _
"adresse valide d'une plage de cellule." & _
vbCrLf & vbCrLf, vbCritical _
+ vbYesNo, "Attention") = vbYes Then
Me.RefEdit1.Value = ""
Exit Sub
Else
MsgBox "opération annulée."
End If
End If
'le reste du code
End Sub
'-------------------------------------------
"Sylian" <utilisateur@exemple.fr> a écrit dans le message de groupe de discussion :
4a36be32$0$18217$426a74cc@news.free.fr...
Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une
personne rentre "toto" dans un refedit alors qu'il devrait sélectionner
une plage, la macro plante. Et j'ai d'autres exemple dans le style pour
des entrées qui ne correspondent pas à la demande.
Comment gérer ce problème pour le refedit par exemple ?
En supposant que ton contrôle "RefEdit" est dans un formulaire et que la procédure est lancée par un bouton de commande.
'------------------------------------------- Sub CommandButton1_Click()
Dim Plage As Range On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value) If Plage Is Nothing Then If MsgBox("Vous n'avez pas saisi une " & _ "adresse valide d'une plage de cellule." & _ vbCrLf & vbCrLf, vbCritical _ + vbYesNo, "Attention") = vbYes Then Me.RefEdit1.Value = "" Exit Sub Else MsgBox "opération annulée." End If End If 'le reste du code End Sub '-------------------------------------------
"Sylian" a écrit dans le message de groupe de discussion : 4a36be32$0$18217$ Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?
Merci de votre aide.
Sylian
Sylian
Merci Isabelle et MichDenis pour vos lumières. Je vais essayé ce qui suit mais si par exemple je renseigne le RefEdit1 par "toto" (en toute lettre) au lieu d'aller chercher une plage de données comme attendu. Je pense que j'aurai un bug. Mais je vais tester ça tout de suite ! Sylian
MichDenis a écrit :
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire et que la procédure est lancée par un bouton de commande.
'------------------------------------------- Sub CommandButton1_Click()
Dim Plage As Range On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value) If Plage Is Nothing Then If MsgBox("Vous n'avez pas saisi une " & _ "adresse valide d'une plage de cellule." & _ vbCrLf & vbCrLf, vbCritical _ + vbYesNo, "Attention") = vbYes Then Me.RefEdit1.Value = "" Exit Sub Else MsgBox "opération annulée." End If End If 'le reste du code End Sub '-------------------------------------------
"Sylian" a écrit dans le message de groupe de discussion : 4a36be32$0$18217$ Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?
Merci de votre aide.
Sylian
Merci Isabelle et MichDenis pour vos lumières.
Je vais essayé ce qui suit mais si par exemple je renseigne le RefEdit1
par "toto" (en toute lettre) au lieu d'aller chercher une plage de
données comme attendu. Je pense que j'aurai un bug. Mais je vais tester
ça tout de suite !
Sylian
MichDenis a écrit :
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire
et que la procédure est lancée par un bouton de commande.
'-------------------------------------------
Sub CommandButton1_Click()
Dim Plage As Range
On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value)
If Plage Is Nothing Then
If MsgBox("Vous n'avez pas saisi une " & _
"adresse valide d'une plage de cellule." & _
vbCrLf & vbCrLf, vbCritical _
+ vbYesNo, "Attention") = vbYes Then
Me.RefEdit1.Value = ""
Exit Sub
Else
MsgBox "opération annulée."
End If
End If
'le reste du code
End Sub
'-------------------------------------------
"Sylian" <utilisateur@exemple.fr> a écrit dans le message de groupe de discussion :
4a36be32$0$18217$426a74cc@news.free.fr...
Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une
personne rentre "toto" dans un refedit alors qu'il devrait sélectionner
une plage, la macro plante. Et j'ai d'autres exemple dans le style pour
des entrées qui ne correspondent pas à la demande.
Comment gérer ce problème pour le refedit par exemple ?
Merci Isabelle et MichDenis pour vos lumières. Je vais essayé ce qui suit mais si par exemple je renseigne le RefEdit1 par "toto" (en toute lettre) au lieu d'aller chercher une plage de données comme attendu. Je pense que j'aurai un bug. Mais je vais tester ça tout de suite ! Sylian
MichDenis a écrit :
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire et que la procédure est lancée par un bouton de commande.
'------------------------------------------- Sub CommandButton1_Click()
Dim Plage As Range On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value) If Plage Is Nothing Then If MsgBox("Vous n'avez pas saisi une " & _ "adresse valide d'une plage de cellule." & _ vbCrLf & vbCrLf, vbCritical _ + vbYesNo, "Attention") = vbYes Then Me.RefEdit1.Value = "" Exit Sub Else MsgBox "opération annulée." End If End If 'le reste du code End Sub '-------------------------------------------
"Sylian" a écrit dans le message de groupe de discussion : 4a36be32$0$18217$ Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?
Merci de votre aide.
Sylian
Sylian
Ça fonctionne !!! Je devrais garder mes aprioris pour moi. Effectivement quand je rentre des chiffres ou des noms, la macro détecte bien que ce n'est pas une plage de données et il me relance. Impeccable ! Merci à vous !
Sylian a écrit :
Merci Isabelle et MichDenis pour vos lumières. Je vais essayé ce qui suit mais si par exemple je renseigne le RefEdit1 par "toto" (en toute lettre) au lieu d'aller chercher une plage de données comme attendu. Je pense que j'aurai un bug. Mais je vais tester ça tout de suite ! Sylian
MichDenis a écrit :
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire et que la procédure est lancée par un bouton de commande.
'------------------------------------------- Sub CommandButton1_Click()
Dim Plage As Range On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value) If Plage Is Nothing Then If MsgBox("Vous n'avez pas saisi une " & _ "adresse valide d'une plage de cellule." & _ vbCrLf & vbCrLf, vbCritical _ + vbYesNo, "Attention") = vbYes Then Me.RefEdit1.Value = "" Exit Sub Else MsgBox "opération annulée." End If End If 'le reste du code End Sub '-------------------------------------------
"Sylian" a écrit dans le message de groupe de discussion : 4a36be32$0$18217$ Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?
Merci de votre aide.
Sylian
Ça fonctionne !!! Je devrais garder mes aprioris pour moi. Effectivement
quand je rentre des chiffres ou des noms, la macro détecte bien que ce
n'est pas une plage de données et il me relance. Impeccable !
Merci à vous !
Sylian a écrit :
Merci Isabelle et MichDenis pour vos lumières.
Je vais essayé ce qui suit mais si par exemple je renseigne le RefEdit1
par "toto" (en toute lettre) au lieu d'aller chercher une plage de
données comme attendu. Je pense que j'aurai un bug. Mais je vais tester
ça tout de suite !
Sylian
MichDenis a écrit :
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire
et que la procédure est lancée par un bouton de commande.
'-------------------------------------------
Sub CommandButton1_Click()
Dim Plage As Range
On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value)
If Plage Is Nothing Then
If MsgBox("Vous n'avez pas saisi une " & _
"adresse valide d'une plage de cellule." & _
vbCrLf & vbCrLf, vbCritical _
+ vbYesNo, "Attention") = vbYes Then
Me.RefEdit1.Value = ""
Exit Sub
Else
MsgBox "opération annulée."
End If
End If
'le reste du code
End Sub
'-------------------------------------------
"Sylian" <utilisateur@exemple.fr> a écrit dans le message de groupe de
discussion : 4a36be32$0$18217$426a74cc@news.free.fr...
Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une
personne rentre "toto" dans un refedit alors qu'il devrait sélectionner
une plage, la macro plante. Et j'ai d'autres exemple dans le style pour
des entrées qui ne correspondent pas à la demande.
Comment gérer ce problème pour le refedit par exemple ?
Ça fonctionne !!! Je devrais garder mes aprioris pour moi. Effectivement quand je rentre des chiffres ou des noms, la macro détecte bien que ce n'est pas une plage de données et il me relance. Impeccable ! Merci à vous !
Sylian a écrit :
Merci Isabelle et MichDenis pour vos lumières. Je vais essayé ce qui suit mais si par exemple je renseigne le RefEdit1 par "toto" (en toute lettre) au lieu d'aller chercher une plage de données comme attendu. Je pense que j'aurai un bug. Mais je vais tester ça tout de suite ! Sylian
MichDenis a écrit :
Bonjour Sylian,
En supposant que ton contrôle "RefEdit" est dans un formulaire et que la procédure est lancée par un bouton de commande.
'------------------------------------------- Sub CommandButton1_Click()
Dim Plage As Range On Error Resume Next
Set Plage = Range(Me.RefEdit1.Value) If Plage Is Nothing Then If MsgBox("Vous n'avez pas saisi une " & _ "adresse valide d'une plage de cellule." & _ vbCrLf & vbCrLf, vbCritical _ + vbYesNo, "Attention") = vbYes Then Me.RefEdit1.Value = "" Exit Sub Else MsgBox "opération annulée." End If End If 'le reste du code End Sub '-------------------------------------------
"Sylian" a écrit dans le message de groupe de discussion : 4a36be32$0$18217$ Bonsoir,
J'utilise une panoplie de userform avec différents champs. Si une personne rentre "toto" dans un refedit alors qu'il devrait sélectionner une plage, la macro plante. Et j'ai d'autres exemple dans le style pour des entrées qui ne correspondent pas à la demande. Comment gérer ce problème pour le refedit par exemple ?