Boucle macro defectueuse

Bonjour à tous,

le confinement et ce damné virus auront eu au mois un côté positif, je me suis mis à VBA... :lol:
J'ai crée une macro qui marche très bien pour importer des données d'un tableau dans un classeur excel type, puis implémenter mes règles de validation de données et le verrouiller. Le but étant de créer des feuilles de congés avec menu déroulant et formules de calcul.
Je voudrais pouvoir répéter cette macro jusqu'à ce que la cellule A4 de mon tableau soit vide (ma macro supprime la ligne A4 après chaque importation).
J'ai voulu faire une boucle avec la macro suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro1() ' ' Macro1 Macro '   Do Until ActiveSheet.Range("A4").Value = Empty 'ImportATE Macro Loop   End Sub

---

Le problème c'est que mon pc bug quand je lance et je n'arrive pas à voir où est mon erreur... Merci d'avance de votre aide !

Hello,

Ce tutoriel concernant les boucles pourrait très certainement t'être utile ( surtout le point v)

https://silkyroad.developpez.com/vba/boucles/

Bat,
MFoxy

bonjour,

t'es tu intéresser au " is empty" ou "is null"??

Tu peux voir dans la doc microsoft, cela te donnera des renseignements complémentaires.

sinon tu peux essayer si tu as des variables string ="" ou integer ou numérique = 0

Bonjour,

Pour moi, ni la boucle, ni le Empty ne provoquent ce problème.
Pour s'en persuader, dans un classeur vierge, placez des valeurs colonne A puis lancez ce code :

Code:

---

1 2 3 4 5

Sub Macro1() Do Until ActiveSheet.Range("A4").Value = Empty Rows("4:4").Delete Shift:=xlUp Loop End Sub

---

ça passe nickel.

La vérité est ailleurs.

Peux tu nous donner le code de la procédure ImportATE Macro?

Merci à tous pour votre aide le problème a été résolu avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() ' ' Macro1 Macro ' While Not IsEmpty(ActiveSheet.Range("A4")) Call ImportATE Wend   End Sub

---

J'aurai certainement besoin de votre aide pour d'autres macros en attendant, je lis les tutoriels du site ! :D