Discussion :

[Coraline99]

Bonjour,

J'ai un série de colonnes dans un tableau. Seule une d'entre elles a le critère "Actual" dans la ligne 1 et le critère "Janvier" dans la ligne 3.
Il me faudrait un code qui passe en revue toutes les colonnes du tableau en partant de la première colonne jusqu'à la colonne contenant les deux critères. J'aimerais pour finir que le code me renvoie le numéro de la colonne en question.

Merci beaucoup beaucoup beaucoup!

Coraline99

[jeanmidudu]

Bonjour,

D'abord, ce forum n'est pas fait pour proposer des solutions toutes faites, il faut donc mettre un peu la main à pâte, nous sommes là pour corriger, améliorer, faire comprendre les erreurs, mais pas pour créer depuis le début.

Voilà donc un algorithme, que tu pourras coder par toi-même, et si jamais tu n'y arrives, postes ici ton code, que nous nous ferons un plaisir de t'aider à corriger (je dis bien aider)

L'algorithme :

Pour chaque colonne
__critere1 = false
__critere2 = false
__Pour i allant de 1 à DernièreLigne
____Si cellule = "Actual" Alors
_______critere1 = true
____Fin Si
____Si cellule = "Janvier" Alors
_______critere2 = true
____Fin Si
__Next i
__Si (critere1 et critere2) Alors
___Retourne colonne
___Exit Sub
__Fin Si
Next Colonne

Voilà, tu n'as qu'une chose à faire, le traduire. Et en plus, c'est de l'algorithme rédigé façon VBA (tout est écrit en langage humain, dans la même structure que le vba)

[bpascal123]

Bonjour,

Avec une manip manuelle, c'est assez simple, vous avez essayé? ajouter une nouvelle colonne, concaténer avec les critères que vous voulez, trier et vous aurez les doublons ou bien dans un tcd. Il y a aussi plusieurs formules qui peuvent s'appliquer sur la colonne des doublons dans une nouvelle colonne, des exemples ici. J'applique la formule suivante: =NB.SI(BB$2:BB2;BB2)=1 qui renvoie VRAI si ce n'est pas un doublon et faux si c'est un doublon

Ou alors il faudrait pourquoi une macro serait utile quand il y a des formules ou d'autres manières de faire déjà intégrées dans Excel.

cordialement

Pascal

[Coraline99]

Bonjour Jeanmidudu,

Merci beaucoup pour ta réponse rapide! Entre-temps, j'ai trouvé cette solution qui est très proche de la tienne et qui marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MyC()
 
Dim MyC As Integer
 
MyC = 1
For MyC = 1 To 10
If Cells(1, MyC).Text = "Actual" And Cells(3, MyC).Text = "Janvier" Then
MsgBox (MyC)
End If
Next
 
End Sub

@ bpascal123 : Ce bout de code est la première étape d'une macro. Cela ne m'intéresse donc pas de savoir le faire par Excel manuellement. Mais merci quand même!! )

[jeanmidudu]

Parfait,

Si le problème est résolu, n'oublie pas de cliquer sur pour clore le sujet

[bpascal123]

@ bpascal123 : Ce bout de code est la première étape d'une macro. Cela ne m'intéresse donc pas de savoir le faire par Excel manuellement. Mais merci quand même!! )

J'avais pas vu qu'il fallait traverser de colonne en colonne pour appliquer la condition. Même avec cet oubli, j'aurais transposé les données et collé une formule mais ça dépend beaucoup de quelle forme sont les données. Alors la macro que tu as trouvé est peut-être le plus simple