Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Lister les cellules sélctionnées en VBA

Lister les cellules sélctionnées en VBA

6 réponses
Avatar
Johann
Bonjour,

Voila, je n'y connais rien en VBA! J'ai juste une petite formule à mettre en
place pour ce qui suit, si kk'un peut m'aider sa serai impec.

J'ai une colonne avec une liste de taches ( colonne A1)

Dans la colonne A2, je mes un "X" pour selectionner une tache (dans certaine
ligne non pas de X).

Je voudrais que sur la feuille 2, un script me liste les taches qui sont
selectionnées.

Je ne sais pas si vous comprennez?

Merci

@+++
Signaler un problème avec ce contenu

6 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
papou
Bonjour
Avec quelque chose dans ce style à adapter :
Sub ListerTaches()
For i = 2 To Range("A65536").End(xlUp).Row
With Worksheets("Feuil1")
If .Cells(i, 2) = "X" Then Worksheets("Feuil2").Range("A65536").End(xlUp)(2)
= .Cells(i, 1)
End With
Next i
End Sub

Cordialement
Pascal

"Johann" a écrit dans le message de
news:%
Bonjour,

Voila, je n'y connais rien en VBA! J'ai juste une petite formule à mettre
en

place pour ce qui suit, si kk'un peut m'aider sa serai impec.

J'ai une colonne avec une liste de taches ( colonne A1)

Dans la colonne A2, je mes un "X" pour selectionner une tache (dans
certaine

ligne non pas de X).

Je voudrais que sur la feuille 2, un script me liste les taches qui sont
selectionnées.

Je ne sais pas si vous comprennez?

Merci

@+++




Avatar
Johann
Super rapide et sa marche :)

Merci Beaucoup

@++

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Avec quelque chose dans ce style à adapter :
Sub ListerTaches()
For i = 2 To Range("A65536").End(xlUp).Row
With Worksheets("Feuil1")
If .Cells(i, 2) = "X" Then
Worksheets("Feuil2").Range("A65536").End(xlUp)(2)
= .Cells(i, 1)
End With
Next i
End Sub

Cordialement
Pascal

"Johann" a écrit dans le message de
news:%
Bonjour,

Voila, je n'y connais rien en VBA! J'ai juste une petite formule à mettre
en

place pour ce qui suit, si kk'un peut m'aider sa serai impec.

J'ai une colonne avec une liste de taches ( colonne A1)

Dans la colonne A2, je mes un "X" pour selectionner une tache (dans
certaine

ligne non pas de X).

Je voudrais que sur la feuille 2, un script me liste les taches qui sont
selectionnées.

Je ne sais pas si vous comprennez?

Merci

@+++








Avatar
michdenis
Bonjour Johann,

Tu peux utiliser le fitre automatique sur ta plage de cellules en Feuil1

Sur la colonne 2, tu choisis X comme critère

Tu utilises un copier-Coller du résultat du filtre vers l'endroit où tu veux obtenir le résultat.

Tu enlèves le filtre automatique sur la plage originale.


Salutations!



"Johann" a écrit dans le message de news: %
Bonjour,

Voila, je n'y connais rien en VBA! J'ai juste une petite formule à mettre en
place pour ce qui suit, si kk'un peut m'aider sa serai impec.

J'ai une colonne avec une liste de taches ( colonne A1)

Dans la colonne A2, je mes un "X" pour selectionner une tache (dans certaine
ligne non pas de X).

Je voudrais que sur la feuille 2, un script me liste les taches qui sont
selectionnées.

Je ne sais pas si vous comprennez?

Merci

@+++
Avatar
papou
Re
Ok par contre je viens de constater un léger oubli - mais qui peut quand
même changer les choses !
Donc je te conseille de modifier comme ceci :
Sub ListerTaches()
With Worksheets("Feuil1")
For i = 2 To .Range("A65536").End(xlUp).Row
If .Cells(i, 2) = "X" Then Worksheets("Feuil2").Range("A65536").End(xlUp)(2)
= .Cells(i, 1)
Next i
End With
End Sub

Cordialement
Pascal
"Johann" a écrit dans le message de
news:
Super rapide et sa marche :)

Merci Beaucoup

@++

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Avec quelque chose dans ce style à adapter :
Sub ListerTaches()
For i = 2 To Range("A65536").End(xlUp).Row
With Worksheets("Feuil1")
If .Cells(i, 2) = "X" Then
Worksheets("Feuil2").Range("A65536").End(xlUp)(2)
= .Cells(i, 1)
End With
Next i
End Sub

Cordialement
Pascal

"Johann" a écrit dans le message de
news:%
Bonjour,

Voila, je n'y connais rien en VBA! J'ai juste une petite formule à
mettre



en
place pour ce qui suit, si kk'un peut m'aider sa serai impec.

J'ai une colonne avec une liste de taches ( colonne A1)

Dans la colonne A2, je mes un "X" pour selectionner une tache (dans
certaine

ligne non pas de X).

Je voudrais que sur la feuille 2, un script me liste les taches qui
sont



selectionnées.

Je ne sais pas si vous comprennez?

Merci

@+++












Avatar
Johann
Merci beaucoup :)

Par contre une atre petite question, est ce que je peu choisir l'endroit ou
le script m'écrit la liste des éléments séléctionnés?

Encore merci

Johann


"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
%
Re
Ok par contre je viens de constater un léger oubli - mais qui peut quand
même changer les choses !
Donc je te conseille de modifier comme ceci :
Sub ListerTaches()
With Worksheets("Feuil1")
For i = 2 To .Range("A65536").End(xlUp).Row
If .Cells(i, 2) = "X" Then
Worksheets("Feuil2").Range("A65536").End(xlUp)(2)
= .Cells(i, 1)
Next i
End With
End Sub

Cordialement
Pascal
"Johann" a écrit dans le message de
news:
Super rapide et sa marche :)

Merci Beaucoup

@++

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Avec quelque chose dans ce style à adapter :
Sub ListerTaches()
For i = 2 To Range("A65536").End(xlUp).Row
With Worksheets("Feuil1")
If .Cells(i, 2) = "X" Then
Worksheets("Feuil2").Range("A65536").End(xlUp)(2)
= .Cells(i, 1)
End With
Next i
End Sub

Cordialement
Pascal

"Johann" a écrit dans le message de
news:%
Bonjour,

Voila, je n'y connais rien en VBA! J'ai juste une petite formule à
mettre



en
place pour ce qui suit, si kk'un peut m'aider sa serai impec.

J'ai une colonne avec une liste de taches ( colonne A1)

Dans la colonne A2, je mes un "X" pour selectionner une tache (dans
certaine

ligne non pas de X).

Je voudrais que sur la feuille 2, un script me liste les taches qui
sont



selectionnées.

Je ne sais pas si vous comprennez?

Merci

@+++
















Avatar
Johann
Merci pour ton aide, mais je prefere un petit script avec tout en
automatique, ca évite les érreurs ;)

@++


"michdenis" a écrit dans le message de news:
u%
Bonjour Johann,

Tu peux utiliser le fitre automatique sur ta plage de cellules en Feuil1

Sur la colonne 2, tu choisis X comme critère

Tu utilises un copier-Coller du résultat du filtre vers l'endroit où tu
veux obtenir le résultat.

Tu enlèves le filtre automatique sur la plage originale.


Salutations!



"Johann" a écrit dans le message de news:
%
Bonjour,

Voila, je n'y connais rien en VBA! J'ai juste une petite formule à mettre
en
place pour ce qui suit, si kk'un peut m'aider sa serai impec.

J'ai une colonne avec une liste de taches ( colonne A1)

Dans la colonne A2, je mes un "X" pour selectionner une tache (dans
certaine
ligne non pas de X).

Je voudrais que sur la feuille 2, un script me liste les taches qui sont
selectionnées.

Je ne sais pas si vous comprennez?

Merci

@+++