XL 2019 Insertion colonnes dans certaines feuilles du classeur

[Bastien43]

Bonjour,

Je cherche à ajouter un certains nombre de colonnes à certaines feuilles seulement du classeur (nommées CV01, CV02, CV03 ....)

Voici mon code. Il ne marche pas, pourriez vous m'aider svp ?

Le nombre de colonne n'est pas pris en compte puis les feuilles CV... n'ont plus.

Je vous remercie,
Cordialement
Bastien

Option Explicit

Sub InsererColonne()

    Dim NbrColonne As String
    Dim ws As Worksheet
   
    NbrColonne = InputBox("Nombre de colonnes")
 
    If NbrColonne <> "" Then
        If IsNumeric(NbrColonne) Then
            For Each ws In Worksheets
                If ws.Name = "CV*" Then
                     Range("H1").Resize(, NbrColonne).EntireColumn.Insert Shift:=xlToRight
                End If
           Next ws
        End If
    End If
 
End Sub

 

[Phil69970]

Bonjour @Bastien43 , lr fotrum

Je te propose ceci à placer dans un module:

Option Explicit
Sub InsererColonne()
Dim NbrColonne As String
Dim ws As Worksheet
NbrColonne = InputBox("Nombre de colonnes")
If NbrColonne <> "" Then
    If IsNumeric(NbrColonne) Then
        For Each ws In Worksheets
            If ws.Name Like "CV*" Then
                ws.Range("H1").Resize(, NbrColonne).EntireColumn.Insert Shift:=xlToRight
            End If
        Next ws
    End If
End If
End Sub

Merci de ton retour

@Phil69970

 

[Jacky67]

Bonjour,

Je cherche à ajouter un certains nombre de colonnes à certaines feuilles seulement du classeur (nommées CV01, CV02, CV03 ....)

Voici mon code. Il ne marche pas, pourriez vous m'aider svp ?

Le nombre de colonne n'est pas pris en compte puis les feuilles CV... n'ont plus.

Je vous remercie,
Cordialement
Bastien

Option Explicit

Sub InsererColonne()

    Dim NbrColonne As String
    Dim ws As Worksheet
 
    NbrColonne = InputBox("Nombre de colonnes")
 
    If NbrColonne <> "" Then
        If IsNumeric(NbrColonne) Then
            For Each ws In Worksheets
                If ws.Name = "CV*" Then
                     Range("H1").Resize(, NbrColonne).EntireColumn.Insert Shift:=xlToRight
                End If
           Next ws
        End If
    End If
 
End Sub

Bonjour
Essaye comme ceci

Sub InsererColonne()
    Dim NbrColonne As String
    Dim ws As Worksheet
    NbrColonne = InputBox("Nombre de colonnes")
    If NbrColonne <> "" And IsNumeric(NbrColonne) Then
        If NbrColonne < 1 Then Exit Sub
        For Each ws In Worksheets
            If UCase(Left(ws.Name, 2)) = "CV" Then
                ws.Range("H1").Resize(, NbrColonne).EntireColumn.Insert Shift:=xlToRight
            End If
        Next ws
    End If
End Sub

 

[Bastien43]

Bonsoir à tous,

Merci beaucoup pour la correction. Cela fonctionne super bien dans les 2 cas.

Bonne soirée