XL 2019 Insertion colonnes dans certaines feuilles du classeur

Bastien43

XLDnaute Occasionnel
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


VB:
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
 
Dernière édition:
Solution
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


VB:
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...

Phil69970

XLDnaute Barbatruc
Bonjour @Bastien43 , lr fotrum

Je te propose ceci à placer dans un module:

VB:
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

XLDnaute Barbatruc
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


VB:
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
VB:
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
 

Discussions similaires

Réponses
8
Affichages
618

Statistiques des forums

Discussions
311 724
Messages
2 081 937
Membres
101 844
dernier inscrit
pktla