Recherche d'une valeur et copie de la colonne

Recherche d'une valeur et copie de la colonne - VB/VBA/VBS - Programmation

Marsh Posté le 13-11-2012 à 10:37:06    

Bonjour
 
J'utilise parfois des macros dans Excel mais uniquement en utilisant l'enregistreur automatique, je n'y connais donc absolumment rien à la programmation.
J'ai parcouru le forum pendant 2 heures à essayer diverses solutions mais rien ne fonctionne.
Merci de m'aider :
 
J'aimerais rechercher une valeur spécifique "mot" dans la ligne 1 puis copier toute la colonne dont l'entête est "mot" dans la colonne A (la colonne A est toujours vide).
 
Merci bien
 
Bob Encéphalopathe spongiforme  :??:


Message édité par Bob_the_sponge le 13-11-2012 à 10:40:34
Reply

Marsh Posté le 13-11-2012 à 10:37:06   

Reply

Marsh Posté le 13-11-2012 à 11:01:09    

Bonjour,
 
Un code qui devrait fonctionner :

Code :
  1. Sub test()
  2. Dim c As Range
  3. Dim a As Integer
  4. Dim b As Integer
  5. a = Cells(1, 2).End(xlToRight).Column 'recherche dernière colonne
  6. For Each c In Range(Cells(1, 2), Cells(1, a))
  7.     If c.Value = "mot" Then
  8.         b = Cells(65000, c.Column).End(xlUp).Row 'recherche dernière ligne
  9.         Range("A1:A" & b).Value = Range(Cells(1, c.Column), Cells(b, c.Column)).Value
  10.         Exit For
  11.     End If
  12. Next c
  13. End Sub


 
Attention, il ne faut pas qu'il y ai d'entête de colonne vide, sinon, la boucle s'arrêtera à la colonne vide.


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 13-11-2012 à 11:07:43    

J'ai malheureusement des entêtes de colonne vide....

Reply

Marsh Posté le 13-11-2012 à 11:11:56    

Dans ces cas là, il faut que tu fasse comme ça :

Code :
  1. a = Cells(1, 250).End(xlToLeft).Column


 
Le 250 étant le N° de colonne le plus à droite sur ta page.
 
Si tu n'as que 30 colonnes, tu peux mettre 40 ou 100 ou plus, comme tu veux.
 
Si tu as un nombre de colonnes fixe, tu vas au plus simple en mettant :

Code :
  1. a = x (ton nombre de colonnes)


---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"-  Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1
Reply

Marsh Posté le 13-11-2012 à 11:24:41    

Nickel, ça fonctionne !
 
Merci beaucoup !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed