Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copier colonne d'une cellule

Copier colonne d'une cellule

2 réponses
Avatar
YeTi
Bonjour à toutes et à tous,

J'aimerais pouvoir copier la colonne d'une cellule qui répond à une
condition...
Je suis arrivé à ça mais ca ne fonctionne pas:

Private Sub CommandButton1_Click()
match_date = ComboBox1.Value
For i = 2 To 256
If Cells(1, i) = match_date Then
ActiveCell.Columns.Copy
End If
Next i

Ce qui est faux, c'est clairement "ActiveCell.Columns.Copy" mais je n'ai
aucune idée quoi mettre à la place...

Un petit coup de main serait le bienvenu.

Merci beaucoup!

Yeti
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour,
J'aimerais pouvoir copier la colonne d'une cellule ...



Columns(i).Copy


--
Salutations
JJ


"YeTi" a écrit dans le message de news:

Bonjour à toutes et à tous,

J'aimerais pouvoir copier la colonne d'une cellule qui répond à une
condition...
Je suis arrivé à ça mais ca ne fonctionne pas:

Private Sub CommandButton1_Click()
match_date = ComboBox1.Value
For i = 2 To 256
If Cells(1, i) = match_date Then
ActiveCell.Columns.Copy
End If
Next i

Ce qui est faux, c'est clairement "ActiveCell.Columns.Copy" mais je n'ai
aucune idée quoi mettre à la place...

Un petit coup de main serait le bienvenu.

Merci beaucoup!

Yeti


Avatar
YeTi
>_<



Faut que j'aie me coucher... d'avoir même pas vu ça!

Merci infiniment!

"Jacky" wrote:

Bonjour,
> J'aimerais pouvoir copier la colonne d'une cellule ...

Columns(i).Copy


--
Salutations
JJ


"YeTi" a écrit dans le message de news:

> Bonjour à toutes et à tous,
>
> J'aimerais pouvoir copier la colonne d'une cellule qui répond à une
> condition...
> Je suis arrivé à ça mais ca ne fonctionne pas:
>
> Private Sub CommandButton1_Click()
> match_date = ComboBox1.Value
> For i = 2 To 256
> If Cells(1, i) = match_date Then
> ActiveCell.Columns.Copy
> End If
> Next i
>
> Ce qui est faux, c'est clairement "ActiveCell.Columns.Copy" mais je n'ai
> aucune idée quoi mettre à la place...
>
> Un petit coup de main serait le bienvenu.
>
> Merci beaucoup!
>
> Yeti