[Excel] Condition sur liste variable
Fermé
Jodko
-
13 août 2009 à 10:06
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 13 août 2009 à 13:26
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 13 août 2009 à 13:26
A voir également:
- [Excel] Condition sur liste variable
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Excel liste déroulante en cascade - Guide
- Si et excel - Guide
- Calculer une moyenne sur excel - Guide
5 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
13 août 2009 à 11:15
13 août 2009 à 11:15
SAlut,
Dans un cas comme celui-ci je ferais une boucle comme ceci :
If Left(ActiveCell,5) = Resso Then
Dans un cas comme celui-ci je ferais une boucle comme ceci :
If Left(ActiveCell,5) = Resso Then
En fait, j'ai mis "RessourceX" pour faire simple et générique, mais les codes ressources sont des accronymes tout ce qu'il y a de plus barbares...
Je ne peux donc pas faire ce que tu proposes.
Jodko.
Je ne peux donc pas faire ce que tu proposes.
Jodko.
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
13 août 2009 à 13:26
13 août 2009 à 13:26
J'ai "bricolé" ce code (à adapter):
Sheets("Feuil1").Range("A1").Select 'te place sur la première cellule du fichier à "trier"
Do While ActiveCell <> ""
With Sheets("Feuil2").Range("A1:A3") ' à remplacer par le tableau récapitulatif de tes "ressources"
For i = 1 To 3 'si tu as 3 ressources dans ton tableau
If ActiveCell = .Cells(i, 1) Then
ActiveCell.Offset(0, 1) = ActiveCell
ActiveCell = ""
End If
Next i
End With
ActiveCell.Offset(1, 0).Select
Loop
Sheets("Feuil1").Range("A1").Select 'te place sur la première cellule du fichier à "trier"
Do While ActiveCell <> ""
With Sheets("Feuil2").Range("A1:A3") ' à remplacer par le tableau récapitulatif de tes "ressources"
For i = 1 To 3 'si tu as 3 ressources dans ton tableau
If ActiveCell = .Cells(i, 1) Then
ActiveCell.Offset(0, 1) = ActiveCell
ActiveCell = ""
End If
Next i
End With
ActiveCell.Offset(1, 0).Select
Loop
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
13 août 2009 à 12:50
13 août 2009 à 12:50
Je suppose que "tache1" etc sont également des noms barbares?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
13 août 2009 à 13:12
13 août 2009 à 13:12
Tu dis que :
Je voulais savoir s'il était possible de mettre une condition du type If Activecell.value "appartient" à un tableau.
donc tes valeurs "ressources" sont toutes dans un tableau?
Si oui, il faudrait passer par recherchev du style
If activeCell = RECHERCHEV(ActiveCell,tableau,1,FALSE) Then ' la syntaxe n'est pas correcte mais l'idée est là... si la cellule active est égale à sa propre recherchev donc appartient bien au tableau..... A creuser.
Je voulais savoir s'il était possible de mettre une condition du type If Activecell.value "appartient" à un tableau.
donc tes valeurs "ressources" sont toutes dans un tableau?
Si oui, il faudrait passer par recherchev du style
If activeCell = RECHERCHEV(ActiveCell,tableau,1,FALSE) Then ' la syntaxe n'est pas correcte mais l'idée est là... si la cellule active est égale à sa propre recherchev donc appartient bien au tableau..... A creuser.