j'ai un inputbox qui entre par defaut la valeur d'une cellule
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement",
Sheets("CONTACTS").Range("O" & I).Value)
cellule qu'on peut modifier
Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées
If Sheets("CONTACTS").Range("A" & I).Value =
Sheets("ACCUEIL").Range("F14").Value Then
Sheets("CONTACTS").Range("O" & I).Value = UCase(VarMandat) '
inscrit la valeur de inputbox
If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté"
Exit For
Else ' inputbox a ete renseigné
Me.CmdMandat.Caption = "Mandat N° " &
UCase(Sheets("CONTACTS").Range("O" & I).Value)
Me.CmdMandat.Visible = True
Exit For
End If
End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells
End If
le probleme est que si le bouton annuler est cliqué, ca retourne une valeur
string vide, alors que dans mon cas je veux conserver la valeur
d'origine....y a til moyen de gerer le cancel, ou bien dois je faire une
petite Userform
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
Youky
Salut Gérard, un click sur annuler renoie une valeur nul donc il faut tester la valeur de VarMandat VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) If VarMandat="" Then VarMandat=Sheets("CONTACTS").Range("O" & I).Value 'bla bla ci dessous à revoir car VarMandat ne seras jamais égale à rien If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné youky
"Gerard" a écrit dans le message de news: 42fe443a$0$1250$
Bonsoir
j'ai un inputbox qui entre par defaut la valeur d'une cellule
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) cellule qu'on peut modifier
Sheets("CONTACTS").Unprotect SebOk ' deprotege For I = 5 To 1000 '1000 cellules scrutées If Sheets("CONTACTS").Range("A" & I).Value > Sheets("ACCUEIL").Range("F14").Value Then Sheets("CONTACTS").Range("O" & I).Value = UCase(VarMandat) ' inscrit la valeur de inputbox
If VarMandat = "" Then Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné Me.CmdMandat.Caption = "Mandat N° " & UCase(Sheets("CONTACTS").Range("O" & I).Value) Me.CmdMandat.Visible = True Exit For End If End If Next I 'reprotege la feuille Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=SebOk ActiveSheet.EnableSelection = xlUnlockedCells End If
le probleme est que si le bouton annuler est cliqué, ca retourne une valeur
string vide, alors que dans mon cas je veux conserver la valeur d'origine....y a til moyen de gerer le cancel, ou bien dois je faire une petite Userform
merci ge
Salut Gérard,
un click sur annuler renoie une valeur nul donc il faut tester la valeur de
VarMandat
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement",
Sheets("CONTACTS").Range("O" & I).Value)
If VarMandat="" Then VarMandat=Sheets("CONTACTS").Range("O" & I).Value
'bla bla
ci dessous à revoir car VarMandat ne seras jamais égale à rien
If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté"
Exit For
Else ' inputbox a ete renseigné
youky
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42fe443a$0$1250$8fcfb975@news.wanadoo.fr...
Bonsoir
j'ai un inputbox qui entre par defaut la valeur d'une cellule
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement",
Sheets("CONTACTS").Range("O" & I).Value)
cellule qu'on peut modifier
Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées
If Sheets("CONTACTS").Range("A" & I).Value > Sheets("ACCUEIL").Range("F14").Value Then
Sheets("CONTACTS").Range("O" & I).Value = UCase(VarMandat) '
inscrit la valeur de inputbox
If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté"
Exit For
Else ' inputbox a ete renseigné
Me.CmdMandat.Caption = "Mandat N° " &
UCase(Sheets("CONTACTS").Range("O" & I).Value)
Me.CmdMandat.Visible = True
Exit For
End If
End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells
End If
le probleme est que si le bouton annuler est cliqué, ca retourne une
valeur
string vide, alors que dans mon cas je veux conserver la valeur
d'origine....y a til moyen de gerer le cancel, ou bien dois je faire une
petite Userform
Salut Gérard, un click sur annuler renoie une valeur nul donc il faut tester la valeur de VarMandat VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) If VarMandat="" Then VarMandat=Sheets("CONTACTS").Range("O" & I).Value 'bla bla ci dessous à revoir car VarMandat ne seras jamais égale à rien If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné youky
"Gerard" a écrit dans le message de news: 42fe443a$0$1250$
Bonsoir
j'ai un inputbox qui entre par defaut la valeur d'une cellule
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) cellule qu'on peut modifier
Sheets("CONTACTS").Unprotect SebOk ' deprotege For I = 5 To 1000 '1000 cellules scrutées If Sheets("CONTACTS").Range("A" & I).Value > Sheets("ACCUEIL").Range("F14").Value Then Sheets("CONTACTS").Range("O" & I).Value = UCase(VarMandat) ' inscrit la valeur de inputbox
If VarMandat = "" Then Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné Me.CmdMandat.Caption = "Mandat N° " & UCase(Sheets("CONTACTS").Range("O" & I).Value) Me.CmdMandat.Visible = True Exit For End If End If Next I 'reprotege la feuille Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=SebOk ActiveSheet.EnableSelection = xlUnlockedCells End If
le probleme est que si le bouton annuler est cliqué, ca retourne une valeur
string vide, alors que dans mon cas je veux conserver la valeur d'origine....y a til moyen de gerer le cancel, ou bien dois je faire une petite Userform
merci ge
Gerard
merci youky pour ta reponse, mais cette option je l'avais deja controlée... maintenant suppose qu'a l'ouverture varmandat contient quelquechose et que la personne supprime la valeur... la valeur de varmandat est bien nul, mais ce n'est pas annuler....voila exactement mon probleme.... je l'ai tourné dans tous les sens( enfin a mon niveau )... je pense que je vais faire une petite userforme ce sera plus simple a gerer
mais avant je voulais savoir si il n'y avait pas quand meme une petite soluce... merci pour vos recherches ge "Youky" a écrit dans le message de news: %
Salut Gérard, un click sur annuler renoie une valeur nul donc il faut tester la valeur de VarMandat VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) If VarMandat="" Then VarMandat=Sheets("CONTACTS").Range("O" & I).Value 'bla bla ci dessous à revoir car VarMandat ne seras jamais égale à rien If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné youky
"Gerard" a écrit dans le message de news: 42fe443a$0$1250$
Bonsoir
j'ai un inputbox qui entre par defaut la valeur d'une cellule
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) cellule qu'on peut modifier
Sheets("CONTACTS").Unprotect SebOk ' deprotege For I = 5 To 1000 '1000 cellules scrutées If Sheets("CONTACTS").Range("A" & I).Value >> Sheets("ACCUEIL").Range("F14").Value Then Sheets("CONTACTS").Range("O" & I).Value = UCase(VarMandat) ' inscrit la valeur de inputbox
If VarMandat = "" Then Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné Me.CmdMandat.Caption = "Mandat N° " & UCase(Sheets("CONTACTS").Range("O" & I).Value) Me.CmdMandat.Visible = True Exit For End If End If Next I 'reprotege la feuille Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=SebOk ActiveSheet.EnableSelection = xlUnlockedCells End If
le probleme est que si le bouton annuler est cliqué, ca retourne une valeur
string vide, alors que dans mon cas je veux conserver la valeur d'origine....y a til moyen de gerer le cancel, ou bien dois je faire une petite Userform
merci ge
merci youky
pour ta reponse, mais cette option je l'avais deja controlée...
maintenant suppose qu'a l'ouverture varmandat contient quelquechose et que
la personne supprime la valeur...
la valeur de varmandat est bien nul, mais ce n'est pas annuler....voila
exactement mon probleme....
je l'ai tourné dans tous les sens( enfin a mon niveau )... je pense que je
vais faire une petite userforme ce sera plus simple a gerer
mais avant je voulais savoir si il n'y avait pas quand meme une petite
soluce...
merci pour vos recherches
ge
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
%23igEWVEoFHA.2904@TK2MSFTNGP14.phx.gbl...
Salut Gérard,
un click sur annuler renoie une valeur nul donc il faut tester la valeur
de
VarMandat
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement",
Sheets("CONTACTS").Range("O" & I).Value)
If VarMandat="" Then VarMandat=Sheets("CONTACTS").Range("O" & I).Value
'bla bla
ci dessous à revoir car VarMandat ne seras jamais égale à rien
If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté"
Exit For
Else ' inputbox a ete renseigné
youky
"Gerard" <gege@microsoft.fr> a écrit dans le message de news:
42fe443a$0$1250$8fcfb975@news.wanadoo.fr...
Bonsoir
j'ai un inputbox qui entre par defaut la valeur d'une cellule
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement",
Sheets("CONTACTS").Range("O" & I).Value)
cellule qu'on peut modifier
Sheets("CONTACTS").Unprotect SebOk ' deprotege
For I = 5 To 1000 '1000 cellules scrutées
If Sheets("CONTACTS").Range("A" & I).Value >> Sheets("ACCUEIL").Range("F14").Value Then
Sheets("CONTACTS").Range("O" & I).Value = UCase(VarMandat)
'
inscrit la valeur de inputbox
If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté"
Exit For
Else ' inputbox a ete renseigné
Me.CmdMandat.Caption = "Mandat N° " &
UCase(Sheets("CONTACTS").Range("O" & I).Value)
Me.CmdMandat.Visible = True
Exit For
End If
End If
Next I
'reprotege la feuille
Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True, Password:=SebOk
ActiveSheet.EnableSelection = xlUnlockedCells
End If
le probleme est que si le bouton annuler est cliqué, ca retourne une
valeur
string vide, alors que dans mon cas je veux conserver la valeur
d'origine....y a til moyen de gerer le cancel, ou bien dois je faire une
petite Userform
merci youky pour ta reponse, mais cette option je l'avais deja controlée... maintenant suppose qu'a l'ouverture varmandat contient quelquechose et que la personne supprime la valeur... la valeur de varmandat est bien nul, mais ce n'est pas annuler....voila exactement mon probleme.... je l'ai tourné dans tous les sens( enfin a mon niveau )... je pense que je vais faire une petite userforme ce sera plus simple a gerer
mais avant je voulais savoir si il n'y avait pas quand meme une petite soluce... merci pour vos recherches ge "Youky" a écrit dans le message de news: %
Salut Gérard, un click sur annuler renoie une valeur nul donc il faut tester la valeur de VarMandat VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) If VarMandat="" Then VarMandat=Sheets("CONTACTS").Range("O" & I).Value 'bla bla ci dessous à revoir car VarMandat ne seras jamais égale à rien If VarMandat = "" Then
Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné youky
"Gerard" a écrit dans le message de news: 42fe443a$0$1250$
Bonsoir
j'ai un inputbox qui entre par defaut la valeur d'une cellule
VarMandat = InputBox("Entrer le N° du Mandat", "Mandatement", Sheets("CONTACTS").Range("O" & I).Value) cellule qu'on peut modifier
Sheets("CONTACTS").Unprotect SebOk ' deprotege For I = 5 To 1000 '1000 cellules scrutées If Sheets("CONTACTS").Range("A" & I).Value >> Sheets("ACCUEIL").Range("F14").Value Then Sheets("CONTACTS").Range("O" & I).Value = UCase(VarMandat) ' inscrit la valeur de inputbox
If VarMandat = "" Then Me.CmdMandat.Caption = "Non Mandaté" Exit For Else ' inputbox a ete renseigné Me.CmdMandat.Caption = "Mandat N° " & UCase(Sheets("CONTACTS").Range("O" & I).Value) Me.CmdMandat.Visible = True Exit For End If End If Next I 'reprotege la feuille Sheets("CONTACTS").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=SebOk ActiveSheet.EnableSelection = xlUnlockedCells End If
le probleme est que si le bouton annuler est cliqué, ca retourne une valeur
string vide, alors que dans mon cas je veux conserver la valeur d'origine....y a til moyen de gerer le cancel, ou bien dois je faire une petite Userform
