Discussion :

[Chris7514]

Bonjour à tous,

le confinement et ce damné virus auront eu au mois un côté positif, je me suis mis à VBA...
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 vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[mfoxy]

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

[BAL_pro_18]

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

[pijaku]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Chris7514]

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

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !