Fusionner deux code simple

Résolu
scuti Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   -  
scuti Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Je voudrais savoir comment on fusionne ces deux programme :

Dim O As Worksheet
Dim R As Range
Dim COL As Integer
Dim LI As Integer

Set O = Worksheets("Feuil1")
Set R = O.Rows(1).Find("Vitesse", , xlValues, xlWhole)
If R Is Nothing Then Exit Sub
COL = R.Column


et

    Columns("C:C").Select
Selection.Cut Destination:=Columns("I:I")
Columns("I:I").Select


COL et C:C désigne la même colonne

Merci d'avance
A voir également:

1 réponse

jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Bonjour,

Visiblement...... tu n'as que ça à changer:
Columns(COL).Select

0
scuti Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
Merci, ça fonctionne :D
0