Frakamout
XLDnaute Nouveau
Salut à tous,
Je bloque depuis plusieurs jours sur VBA, j'espère que vous pourrez encore m'aider.
Je cherche à insérer une colonne avant une colonne variable.
Habituellement, si l'on veut insérer une colonne, il faut taper:
Columns("W:W").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
La colonne avant laquelle je veux insérer une autre colonne est variable, nommé "colonne":
Dim cellule_equipement As Range
Dim colonne As Integer
Set cellule_equipement = Range("E3:AV3").Find(ComboBox2.Value)
colonne = cellule_equipement.Column
Malheureusement, si je met:
Columns("colonne:colonne").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
cela ne fonctionne pas.
Merci de votre aide encore une fois.
FraKaMout
Je bloque depuis plusieurs jours sur VBA, j'espère que vous pourrez encore m'aider.
Je cherche à insérer une colonne avant une colonne variable.
Habituellement, si l'on veut insérer une colonne, il faut taper:
Columns("W:W").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
La colonne avant laquelle je veux insérer une autre colonne est variable, nommé "colonne":
Dim cellule_equipement As Range
Dim colonne As Integer
Set cellule_equipement = Range("E3:AV3").Find(ComboBox2.Value)
colonne = cellule_equipement.Column
Malheureusement, si je met:
Columns("colonne:colonne").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
cela ne fonctionne pas.
Merci de votre aide encore une fois.
FraKaMout