Sujet Précédent Sujet Suivant

Fusionner deux code simple

Résolu/Fermé
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - 30 juin 2017 à 12:26
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - 3 juil. 2017 à 10:31
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

Réponse 1 / 1
jordane45 Messages postés 38428 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 18 février 2025 4 735
30 juin 2017 à 13:31
Bonjour,

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

0
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
3 juil. 2017 à 10:31
Merci, ça fonctionne :D
0