XL 2010 Retour arrière jusque à inputbox

[Chasse]

Bonjour à tous

J’ai un petit problème que je n'arrive pas à résoudre.

j’ai deux inputbox

lig = InputBox("Texte ?", "Ligne", 1)
Col = InputBox("Texte ?", "Colonne", 1)

La commande suivante contrôle si il y a une erreur de frappe, je désir un retour à la ligne VBA qui permet de retaper les données.

If Cells(Ligne + lig, Colonne + Col) <> 0 or Cells(Ligne + lig, Colonne + Col) = "" Then: Retour lig = InputBox("Texte ?", "Ligne", 1)

Si vous avez une solution je suis preneur

Merci de votre aide

A+

 

[jmfmarques]

Bonjour
met donc en place un mécanisme de ce genre :

dim bon as boolean
Do While Not bon
  lig = InputBox("Texte ?", "Ligne", 1)
  If lig = "" Then bon = True
  col = InputBox("Texte ?", "Colonne", 1)
  If lig = "" Then bon = True
  ''If ..... then bon = true 'si ton expression est vérifiée, alors bon = true
Loop

qui t'oblige à reprendre les 2 inputboxes si condition non réunie, sauf si abandon

 

[Chasse]

Bonjour jmfmarques


Merci de m'avoir aidé, c'est super.
C'est exactement ce que je désirai.

Une aide précieuse.

Bonne fin de dimanche