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...
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
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
Bonjour,
J'aimerais pouvoir copier la colonne d'une cellule ...
Columns(i).Copy
--
Salutations
JJ
"YeTi" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
C36D0CB3-00D2-43AF-8880-CCDB7A125361@microsoft.com...
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...
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
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
>_<
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" <YeTi@discussions.microsoft.com> a écrit dans le message de news:
C36D0CB3-00D2-43AF-8880-CCDB7A125361@microsoft.com...
> 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
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