ajouter plusieurs colonnes à la fois

[Martin]

Bonjour,

je voudrais, apr programmation, ajouter plusieurs colonnes.

Je me positione par exemple sur la colonne 5 et je voudrais ajouter 4 colonnes à la droite de la colonne 5. JE n'y arrive pas
quelqu'un peut m'aider?
merci
Martin

 

[PhiBou]

Bonjour Martin, le Forum

Si on prend ton exemple, voilà les 2 lignes de prog

que tu mets dans un module :

Columns("F:I").Select
Selection.Insert Shift:=xlToRight

Bon après-midi

PhiBou

 

[Arnaud]

Salut,
en espérant que c ce que tu souhaite faire :
Range("E1").Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert

 

[PhiBou]

Re,

Version courte, sans sélection :

Columns("F:I").Insert Shift:=xlToRight

@+

PhiBou

 

[Pat5]

Bonsoir le forum


Sub AjoutColonnes()


'Affecte une valeur " CHAINE " à la variable " NBColonnes "
Dim NBColonnes As String
Dim i As Integer

'Affiche la boîte de dialogue et demande un chiffre
NBColonnes = InputBox("Combien de colonnes voulez-vous ajouter ?", _
"Insertion de colonnes", "")

'Si " NBColonnes " est différente de rien, Alors
'(Si on appuie sur le bouton " ANNULER ", on passe de suite à " END IF ".)
If NBColonnes <> "" Then

'Pour le nombre demandé de 1 à ?
For i = 1 To NBColonnes

'Avec la cellule active
With ActiveCell

'Ajoute le nombre de colonnes à gauche de la cellule active
.EntireColumn.Insert

'Fin Avec
End With

'Suivant...
Next

'Fin Si
End If

End Sub


Pat5 ;o)

 

[Art]

Bonsoir MARTIN, Phibou, Arnaud, Pat5, le Forum
Pat5, avec ta methode j'ai tout compris, enfin presque )
J'aimerais savoir comment faire pour que si la macro trouve par exemple 5 guillemets dans la colonne elle rajoute automatiquement 5 colonnes à droite de la selection.
Merci à vous pour vos tuyaux
@+
Art

 

[Art]

Rebonsoir à tous
Desole, je me suis mal exprimé.
Je voulais dire qu'il faudrait que la macro rajoute autant de colonnes qu'l y a de guillemets dans la cellule qui en à le plus.
Je m'explique, si dans ma selection A:A, la cellule A20 est celle qui contient le plus de guillemets de la selection, 5 par exemple, il faudrait que la macro rajoute 5 colonnes à droite de la selection.
J'espere que mes explications sont plus clair
Merci à tous
@+Art