[RÉSOLU] VBA : Action conditionnelle

[dionys0s]

Bonjour

J'ai la macro d'insertion de colonne suivante :

Sub Insertion()

    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
    
End Sub

J'aimerais savoir comment faire en sorte qu'elle s'execute sur tous les onglets de mon classeur, sauf le premier

Merci pour votre aide

 

[Dull]

Re : VBA : Action conditionnelle

Re Dionis0s, le Forum

Vois ci cela te convient
à mettre dans le Module ThisWoorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Feuil1" Then 'A adapter
    Columns("A:A").Insert Shift:=xlToRight
    Range("A1").Select
End If
End Sub

Inconvénient : à chaque activation de la feuille (Sauf la première) une colonne s'incrémentera

N'hésites pas si problème 🙂

Bonne Journée

 

[dionys0s]

Re : VBA : Action conditionnelle

Euh c'est quoi le module ThisWorkbook ?

j'ai essayé en mettant le code comme ceci

Sub Insertion()

If Sh.Name <> "Datas CA" Then
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Range("A1").Select
End If
End Sub

mais ça marche pas...

 

[Robert]

Re : VBA : Action conditionnelle

Bonjour Dionys0s, Dull, bonjour le forum,

Pour éviter l'inconvénient de Dull on pourait faire :

Sub Insertion()
Application.ScreenUpdating = False 'masque les changements à l'écran
For x = 2 To Sheets.Count 'boucle sur tous les onglets du classeur en partant du second
    With Sheets(x) 'prend en compte l'onglet de la boucle
        .Select 'sélectionne l'onglet
        .Columns("A:A").Insert Shift:=xlToRight 'insère une colonne
        .Range("A1").Select 'sélectionne la cellule A1
    End With 'fin de la prise en compte de l'onglet de la boucle
Next x 'prochain onglet de la boucle
Sheets(1).Select 'sélectionne le premier onglet (à adapter)
Application.ScreenUpdating = True 'affiche les changements à l'écran
End Sub

Edition :
Dionys0s ton code était bon il te manquait juste la boucle For... Next.

 

[Efgé]

Re : VBA : Action conditionnelle

Bonjour dionys0s, Robert 🙂, Dull 🙂,
En retard mais comme je l'ai fait...A mettre dans un module standart
Il faut que la feuille à ne pas traiter soit en premier onglet:

[COLOR=blue]Sub[/COLOR] Insertion()
[COLOR=blue]For Each[/COLOR] F [COLOR=blue]In[/COLOR] Worksheets
    [COLOR=blue]If[/COLOR] F.Index <> 1 [COLOR=blue]Then[/COLOR] F.Columns("A:A").Insert Shift:=xlToRight
[COLOR=blue]Next[/COLOR] F
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[dionys0s]

Re : VBA : Action conditionnelle

Parfait merci beaucoup à vous pour votre aide

 

[Dull]

Re : VBA : Action conditionnelle

Dionis0s, le Fil

Alt + F11

dans le MODULE THISWORBOOK (etjelerépète)

Edition: Robert🙂...tusaisaquelpointjetedéteste... 🙂 mais je ne t'en veux point 😡 car tu est l'un de mes maitre 😀... n'empêches que je te dois quelques citronsverts😀

Re Edith: SiFG🙂s'ymetaussi😛
Bonne Journée