Recherche Colonne spécifique VBA

**Aschme** · 23/03/2020, 07h21

Bonjour à tous.

Je cherche a balayer plusieurs feuilles d'un classeur pour récupérer des données spécifiques. Book1.xlsx
J'ai tous les outils pour balayer mon classeur avec une boucle FOR, seulement, je galère sur la formule pour traiter mes données (Celle a mettre dans la boucle, ouais ouais).

En effet, je voudrais par le biais d'un userform pouvoir "sélectionner" une colonne bien spécifique, dans le fichier en exemple, si je tape 1 dans mon userform, je voudrais analyser que la colonne B, si je tape 2 la colonne C etc.etc.

L'idée étant au final de compter le nombre d’occurrence de tel ou tel critère (Un nb.si.ens qui viendrait récupérer le nombre de toto dans l'exemple de la colonne B si j'ai tapé 1).
Quelqu'un aurait il une idée de formule que je pourrais appliquer dans ce cas ?

En vous remerciant d'avance !
@++

**riaolle** · 23/03/2020, 08h06

Bonjour et bienvenue sur le forum

Avant de répondre à ta question, petite remarque : beaucoup de membres n'ouvrent pas les pièces jointes => à lire : https://www.developpez.net/forums/d8...s-discussions/. Ajoute plutôt des copies d'écran qui expliquent ton problème dans ton texte. Et n'oublie pas de nous donner ce que tu as déjà fait en terme de code (avec les balises codes => # sur la console) pour que nous puissions voir où tu en es.

Est-ce que ta question consiste à savoir comment manipuler une colonne donnée en VBA ?
Si c'est le cas, sans vouloir te vexer, mais pour t'aider à progresser, je te conseille de lire quelques tutos de VBA, car c'est une opération "de base" dans VBA.
Autre tuto, sur ce site : https://laurent-ott.developpez.com/t...el-vba-tome-1/
Pour répondre à ta question, la fonction pour manipuler des cellules est Range ou Cells. On utilise ces syntaxes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A3")    'pour désigner la cellule A3
Cells(3, 1)    'pour désigner la cellule A3 (ligne 3, colonne 1)

=> Ceci peut être intéressant à lire : https://www.developpez.net/forums/d5...e-range-cells/

Pour manipuler des colonnes, on peut utiliser Range aussi ou Columns :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A:A")    'pour désigner la colonne A
Columns(1)     'pour désigner la colonne A (1ère colonne)

Exemple d'utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim celluleTrouvee as Range
Set celluleTrouvee = Range("A:A").Find("toto")

celluleTrouvee correspond à la 1ère cellule dans laquelle on trouve "toto".

Est-ce que ta question consiste à savoir comment mettre une colonne variable dans Range ou Columns ?
Si c'est le cas, désolée... mais c'est assez basique aussi

=> à lire absolument : https://silkyroad.developpez.com/VBA/LesVariables/
Un exemple d'utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim leNumColonne As Integer      'un nombre entier !
Dim laColonne As Range
leNumColonne = 3          'c'est ton nombre variable pour la colonne, ici exemple avec 3 (colonne C)
Set laColonne = Columns(leNumColonne)

Est-ce que ça te permet d'avancer ?

**Menhir** · 23/03/2020, 08h17

Envoyé par Aschme

Je cherche a balayer plusieurs feuilles d'un classeur pour récupérer des données spécifiques. Book1.xlsx

Beaucoup de participants actifs à ce forum n'ouvrent pas les fichiers joints.

J'ai tous les outils pour balayer mon classeur avec une boucle FOR

Tu aurais dû montrer ton code, de préférence entre balises CODE.

En effet, je voudrais par le biais d'un userform pouvoir "sélectionner" une colonne bien spécifique, dans le fichier en exemple, si je tape 1 dans mon userform, je voudrais analyser que la colonne B, si je tape 2 la colonne C etc.etc.

Pourquoi un UserForm ?
S'il s'agit juste d'indiquer une valeur, il serait plus judicieux d'utiliser une simple InputBox.
Lire ceci : https://docs.microsoft.com/fr-fr/off...utbox-function
C'est plus simple, plus pratique et plus rapide aussi bien pour le développeur que pour l'utilisateur.

En supposant que tu mettes le résultat de cette valeur dans une variable nommée MaCol (tu peux utiliser un autre nom, bien sûr), tu pourras désigner la colonne en question par Columns(MaCol).

L'idée étant au final de compter le nombre d’occurrence de tel ou tel critère (Un nb.si.ens qui viendrait récupérer le nombre de toto

Pour utiliser une fonction Excel dans VBA, tu peux utiliser WorksheetFunction ou Evaluate.
Lire ceci :
https://docs.microsoft.com/fr-fr/off...ksheetfunction
https://docs.microsoft.com/fr-fr/off...ation.evaluate

Attention : dans les deux cas, il faut utiliser la version anglaise de la fonction, donc, dans ton cas, COUNTIFS().

**Aschme** · 23/03/2020, 19h02

J'avoue que mes compétences en VBA sont assez limitées. (Pas eu de réelle formation jusqu'alors : /)
Pour la question sur la inputbox, je ne connais juste pas cet outils.

Pour l'instant j'en suis la, j'ai du mal a comprendre comment récupérer la variable concernant ma colonne sur la cellule trouvée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub CommandButton1_Click()
 
Dim sh As Worksheet
Dim shSynthese As Worksheet
Dim crit1 As String
Dim crit2 As String
Dim crit3 As String
Dim crit4 As String
Dim crit5 As String
Dim crit6 As String
Dim crit7 As String
Dim crit8 As String
Dim ilg As Integer
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String
ilg = 23
crit1 = "EBO"
crit2 = "AVP / CTO"
crit3 = "Etude"
crit4 = "CED"
crit5 = "RAO"
crit6 = "DA"
crit7 = "Réal"
crit8 = "CQR"
Set shSynthese = ThisWorkbook.Sheets("PLAN DE CHARGE GLOBAL")
 
If Controls("OptionButton1").Value = True Then
 
'For Each sh In ThisWorkbook.Worksheets
 
 
'on recherche la cellule contenant le chiffre que l'on a écrit dans le userform / inputbox
Set PlageDeRecherche = Sheets("PLAN DE CHARGE CDR").Range("K1:BS49")
Valeur_Cherchee = TextBox1.Value
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
//Il me manque la formule pour récupérer la position de la colonne de la cellule
'Il faut récupérer la position de la colonne de la cellule contenant la valeur cherchée
'shSynthese.Cells(ilg, 2) = Application.WorksheetFunction.CountIfs("K8:K40";crit1;"G8:G40";"Edouard")

Auriez vous une idée du code a écrire à la ligne 36 ? L'idée est de remplacer le K8 et le K40 dans la dernière ligne par " "VariableColonne", Ligne 8: "VariableColonne", Ligne40 ".
D'avance merci.

**Menhir** · 23/03/2020, 20h29

Envoyé par Aschme

Pour la question sur la inputbox, je ne connais juste pas cet outils.

C'est la raison pour laquelle je t'ai donné un lien vers l'aide qui explique son usage.

**riaolle** · 24/03/2020, 09h12

Bonjour,

Est-ce que crit1, crit2 etc. sont amenés à changer ? Pourquoi passes-tu par des variables et pourquoi n'inscris-tu pas directement les valeurs dans les fonctions ?
Bon ça n'a rien avoir avec le schmilblick, mais je m'interrogeais

Pour répondre à ta question => à lire : https://docs.microsoft.com/fr-fr/off...l.range.column C'est dommage, tu avais fait le plus dur

Pour l'utilisation des variables, je te renvoie à https://silkyroad.developpez.com/VBA/LesVariables/. En prêtant bien attention aux endroits où tu mets les guillemets ! Ou alors tu utilises Cells (ce serait mieux, en fait ...). N'hésites pas à faire des tests sur une fonction simple avant de le faire dans ta fonction finale.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim col As Integer
MsgBox Cells(3, col)

**Aschme** · 24/03/2020, 19h56

Merci beaucoup pour les conseils et infos en tout cas. Ça fait drôlement plaisir

A dire vrai, je ne sais pas si ils vont évoluer dans le futur. Dans le doute j'ai retiré tout ça et mit les valeurs cherchées en dur.

Ça fonctionne presque ! J'ai mis de coté la boucle FOR pour l'instant je cherche a faire fonctionner le schmilblick sur une seule feuille.

J'ai une question néanmoins ! Le code me renvoi actuellement 1 dans la case sur ma feuille de synthèse, or si je regarde dans ma table de donnée, j'ai deux fois la mention "DA" sur la semaine 45 (J'ai tapé 45 dans mon textbox) et donc ma formule devrait m'inscrire "2" dans le case de ma synthèse.

Auriez vous une idée d’où j'ai pu me tromper ? Je pense que c'est dans mon countifs que j'ai du me gourer, mais je n'en suis pas sur (j'ai tagué en jaune la partie que je pense qui fait défaut)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()

Dim sh As Worksheet
Dim shSynthese As Worksheet
Dim ilg As Integer
Dim Col As Integer
Dim L1 As Integer
Dim L2 As Integer
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String
ilg = 23
Set shSynthese = ThisWorkbook.Sheets("PLAN DE CHARGE GLOBAL")


If Controls("OptionButton1").Value = True Then

Set PlageDeRecherche = Sheets("PLAN DE CHARGE CDR").Range("K1:BS49")
Valeur_Cherchee = TextBox1.Value
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
Col = Trouve.Column

shSynthese.Cells(ilg, 2) = WorksheetFunction.CountIfs(Sheets("PLAN DE CHARGE CDR").Range(Col & "8:" & Col & "40"), "DA")

**Menhir** · 25/03/2020, 08h40

Envoyé par Aschme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Col = Trouve.Column

shSynthese.Cells(ilg, 2) = WorksheetFunction.CountIfs(Sheets("PLAN DE CHARGE CDR").Range(Col & "8:" & Col & "40"), "DA")

La propriété Column renvoie une valeur numérique et non une lettre.
Pour une adresse spécifiée sous forme litérale dans un Range, il faut utiliser des lettres pour désigner les colonnes.

Pour éclairer cette explication d'un exemple, si la colonne trouvée est la colonne E (donc 5), ton Range fera référence aux lignes 58 à 540 et non à la zone E8:E40.