VBA création d'une colonne avec 2 conditions

[perdinch]

Bonsoir,

Je souhaite inserer (en vba) une colonne entre la colonne 4 et 5 sous 2 conditions:

1/le nom de l'onglet doit commencer par "ventes"
2/la cellule A1 de l'onglet doit contenir le terme exact "secteur"

si l'une ou l'autre de ces 2 conditions n'est pas remplie on ne fait rien.

j'ai un début d'idée...AVEC 1 condition
For Each sheets In Worksheets
If sheets.Name Like "VENTES*" Then
Columns("E:E").Insert Shift:=xlToRight

MERCI DE VOS SUGGESTIONS


PERDINCH

 

[mth]

Re : VBA création d'une colonne avec 2 conditions

Bonjour perdinch,

Un essai avec ce code:

Sub insertion()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name Like "VENTES*" And sh.Range("E1") <> "" And sh.Range("A1") = "secteur" Then
sh.Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next sh
End Sub

Bonne soirée,

mth

Edit: 🙂🙂🙂 Bises Ges 🙂🙂🙂

 

[Guest]

Re : VBA création d'une colonne avec 2 conditions

Bonjour,

C'est une très mauvaise idée que d'appeler une variable : sheets
Sheets est la collection de toutes les feuilles du classeur(Feuille de travail et feuilles graphiques)
WorkSheets est la collection des feuilles de travail.

'Déclaration de la variable de boucle
Dim sh As Worksheet
'Parcours de toutes les feuilles
For Each sh In Worksheets
     If Left(sh.Name, 6) = "VENTES" And sh.Range("A1") = "secteur" Then
        sh.Columns(5).Insert xlToRight
     End If
Next

Apprendre les bases.

A+
[Edit] Bises Mimi🙂🙂🙂

 

[perdinch]

Re : VBA création d'une colonne avec 2 conditions

merci de vos réponses.

Cela fonctionne parfaitement


perdinch