Besoin de vous pour une condition

[tactic6]

Bonjour le forum et les autres

je voudrais intégrer dans une macro une contrôle supplémentaire sur une cellule
cette cellule (ici J55) si elle n'est pas renseignée je voudrais avoir la possibilité de le faire ou pas avant l'exécution du reste de la macro

j'ai pensé à

la macro tourne fait ses premiers tests.....
If ActiveSheet.Range("J55").Value = "" Then
MsgBox(" La case J 55 n'a pas été saisie voulez vous le faire maintenant ?", vbYesNo) = vbYes
Range("J55").Select
End If
End
le reste de la macro
End Sub

mais ça ne marche pas
un peu d'aide ??
merci

 

[pierrejean]

Re : Besoin de vous pour une condition

bonjour tactic6

A tester:

la macro tourne fait ses premiers tests.....
If ActiveSheet.Range("J55").Value = "" Then
reponse=inputbox(" La case J 55 n'a pas été saisie voulez vous le faire maintenant ?") 
Range("J55")=reponse
End If
End
le reste de la macro
End Sub

 

[Pierrot93]

Re : Besoin de vous pour une condition

Bonjour Tactic, PierreJean🙂

c'est fait alors je donne tout de même....

Sub test()
Dim x As Variant
If IsEmpty(Range("J55").Value) Then _
    x = InputBox("Rentrer une valeur pour cellule j55 ?")
If x = "" Then
    MsgBox "macro stoppée !!!"
    Exit Sub
Else
    Range("J55").Value = x
End If
End Sub

bon après midi
@+

 

[wilfried_42]

Re : Besoin de vous pour une condition

Bonjour tactic6, pierrjean 🙂

en fonction de ce que j'ai compris

If ActiveSheet.Range("J55").Value = "" Then
    if MsgBox(" La case J 55 n'a pas été saisie voulez vous le faire maintenant ?", vbYesNo) = vbYes then
         Range("J55").Select
         exit sub
    end if
End If

oups : bonjour Pierrot 🙂 excuse pour la collision

 

[Dull]

Re : Besoin de vous pour une condition

salut tactic6, le Forum

peut-être comme cela

Sub essai()

Dim Message As String
If ActiveSheet.Range("J55").Value = "" Then
Message = MsgBox(" La case J 55 n'a pas été saisie voulez vous le faire maintenant ?", vbYesNo, vbInformation)
If Message = vbYes Then Range("J55").Select
If Message = vbNo Then
'le reste de la macro
End If
End Sub

Edition: On se bouscule au portillon à ce que je vois
Salut pierrejean,🙂 Pierrot,🙂 Wilfried 🙂

Bonne Journée

 

[tactic6]

Re : Besoin de vous pour une condition

merci a tous
je vais des tests 🙂

edit:

SUPER affaire conclue

 

[tactic6]

Re : Besoin de vous pour une condition

Bonjour le forum et tous les autres

je reviens vers vous car j'ai un petit souci
en effet si j'ai oublié de renseigner la cellule J55 la macro me le fait remarquer et me positionne dessus mais après avoir renseigné cette cellule le reste de la macro ne fonctionne plus même si je la relance du début .
Je doit recommencer la feuille
y aurait il un moyen de lui faire comprendre qu'après avoir renseigné la cellule le reste doit continuer ?

 

[pierrejean]

Re : Besoin de vous pour une condition

Re

on ne pourra guere te repondre sans connaitre la macro !!
ni surtout pour quelle option tu as choisi !!

 

[tactic6]

Re : Besoin de vous pour une condition

Bonjour pierrejean et les autres
la macro qui est tres longue est en fait une macro d'enregistrement de facturier
la case correspond à des frais de port
si il y en a et que j'ai oublié de les saisir la macro me le rappel
poster la macro sans un fichier j'imagine que ça sert a rien
si il faut je vais essayer de reduire le fichier au maximum mais est ce bien nécessaire ?
ce que j'aimerai c'est que sur la macro il y ait:
la case J55 n'est pas saisie !
- voulez vous le faire maintenant
- if Yes then Goto J 55
et une fois J 55 remplie
- le reste de la macro
- if no then le reste de la macro

Tu me comprends ?

 

[pierrejean]

Re : Besoin de vous pour une condition

Re

cela devrait le faire:

la macro tourne fait ses premiers tests.....
If ActiveSheet.Range("J55").Value = "" Then
reponse=inputbox(" La case J 55 n'a pas été saisie voulez vous le faire maintenant ?") Range("J55")=reponse
End If
le reste de la macro
End Sub

Je n'avais pas pris garde au End que tu avais mis dans ton premier post

 

[tactic6]

Re : Besoin de vous pour une condition

aie j'ai une erreur de syntax à :

reponse=inputbox(" La case J 55 n'a pas été saisie voulez vous le faire maintenant ?") Range("J55")=reponse

 

[pierrejean]

Re : Besoin de vous pour une condition

Re
effectivement a la copie 2lignes se sont réunies

la macro tourne fait ses premiers tests.....
If ActiveSheet.Range("J55").Value = "" Then
reponse=inputbox(" La case J 55 n'a pas été saisie voulez vous le faire maintenant ?")
Range("J55")=reponse
End If
le reste de la macro
End Sub

 

[tactic6]

Re : Besoin de vous pour une condition

merci pierrejean
ça a l'air de fonctionner maintenant