Boucle sous condition

[maguetlolo]

bonjour tt le monde,

attention, voici ma premiere boucle!!!! (et grace a vos conseils)

Do Until N = 1

If Sheet = (Name = "Processus ()") Then
If (("activesheets""range1") = "") Then Exit Do
Application.Run "Macro1"
ActiveSheet.Next.Select
End If
Loop
End Sub

bon je sait c'est du travail d'amateur mais n'empeche!!


j'attends vos remarques sur cette macro, mais j'ai cependant un petit soucis,
cette macro en lance une autre qui est une macro de mise en page

    Cells.Select
    Selection.NumberFormat = "@"
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 4), Array(3, 1), Array(4, 2), Array(5, 1), Array(6, 1), _
        Array(7, 2), Array(8, 1)), TrailingMinusNumbers:=True
    Columns("A:A").EntireColumn.AutoFit
    Columns("B:B").EntireColumn.AutoFit
    Selection.ColumnWidth = 17.43
    Columns("B:B").ColumnWidth = 20
    Columns("C:C").ColumnWidth = 13.57
    Columns("D:D").ColumnWidth = 13.86
    Columns("D:D").EntireColumn.AutoFit
    Columns("G:G").EntireColumn.AutoFit
    Columns("G:G").ColumnWidth = 22.43
    Columns("F:F").ColumnWidth = 16.43
    Columns("E:E").ColumnWidth = 19.43
    Selection.ColumnWidth = 20.86

    
    Application.Run "Macro2"
    Application.Run "test"
    
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    
    Application.Run "Macro3"
End Sub

d'une liste sur plusieurs feuilles nommées "Processus 01" pour le 1er jour du mois "Processus 02" pour le deuxieme et ainsi de suite ce que je voudrais, mais je n'ai pas réussi a le faire c'est qu'elle s'arrete dés qu'elle croise une feuille vide (car la j'ai un défaut) ou au moins dès qu'elle ouvre une feuille "Processus ()" dont la cellule "a2" est vide.

ensuite, vu que je m'en sert pas tous les jours mais presque qu'elle recherche les feuille "Processus ()" déja mise en forme et qu'elle n'y touche pas.

merci

 

[Tibo]

Re : Boucle sous condition

Bonjour,

maguetlolo, il ne faut hésiter à utiliser la Recherche sur le Forum.

Avec les mots clés : vider presse papier, ça donne entre autre, après 5 secondes de recherches :

https://www.excel-downloads.com/threads/vider-le-presse-papier.64386/

Où tu as une intervention de notre Thierry Monégasque à qui je transmets toutes mes amitiés.


@+

 

[maguetlolo]

Re : Boucle sous condition

oui, merci

mais je ne reussi pas a l'incorporer a mes fichier, comment faut il faire?