Recherche d'une valeur et copie de la colonne

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Recherche d'une valeur et copie de la colonne

Bob_the_sponge

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

Publicité

vave

Nice to meet me

Bonjour,

Un code qui devrait fonctionner :

Code :

Sub test()
Dim c As Range
Dim a As Integer
Dim b As Integer
a = Cells(1, 2).End(xlToRight).Column 'recherche dernière colonne
For Each c In Range(Cells(1, 2), Cells(1, a))
If c.Value = "mot" Then
b = Cells(65000, c.Column).End(xlUp).Row 'recherche dernière ligne
Range("A1:A" & b).Value = Range(Cells(1, c.Column), Cells(b, c.Column)).Value
Exit For
End If
Next c
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

Bob_the_sponge

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

vave

Nice to meet me

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

Code :

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 :

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

Bob_the_sponge

Nickel, ça fonctionne !

Merci beaucoup !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Recherche d'une valeur et copie de la colonne

Sujets relatifs
Valeur réelle de Set Rg	[Résolu] Copie de dossier avec variable
copie des valeurs d'une table dans une autre table	Comment décrémenter toutes les valeurs d'une colonne
Recherche verticale	PowerShell Supprimer Fichier suite à une recherche de chaine de caract
Lire et accédé a un tableau de valeur énuméré	script copie de fichiers avec selection source et dest
[RESOLU]Problème affichage colonne avec awk	fstream / Modifier une valeur spécifique dans un fichier C++
Plus de sujets relatifs à : Recherche d'une valeur et copie de la colonne

Page générée en 0.050 secondes