Excel Vba : si colonne H contient...
Résolu/Fermé
A voir également:
- Excel si colonne contient alors
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
5 réponses
Merci de ton aide Michel !
Toutefois puis je te demander ce que je dois mettre devant ce que tu m'as écrit (sub ? ) sous quelle forme ?
Par ailleurs, peut être l'ais je mal exprimé mais j'ai besoin que la macro que tu m'as écrite soit appliquée à tout le fichier qui ne soit pas vide colonne H (et à partir de la ligne 2)
Car en fait je me demande à quoi sert cette partie: "lig = 2"
MErci beaucoup
Toutefois puis je te demander ce que je dois mettre devant ce que tu m'as écrit (sub ? ) sous quelle forme ?
Par ailleurs, peut être l'ais je mal exprimé mais j'ai besoin que la macro que tu m'as écrite soit appliquée à tout le fichier qui ne soit pas vide colonne H (et à partir de la ligne 2)
Car en fait je me demande à quoi sert cette partie: "lig = 2"
MErci beaucoup
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
2 déc. 2011 à 11:43
2 déc. 2011 à 11:43
j'ai fait ce que j'ai pu avec ce que tu m'as donné car tu dis
mais je voudrais enchainer d'autres macros pour une mise en page rapide du fichier
donc je ne pouvais pas savoir si cette partie est dans une macro, si c'est une sous-macro dans ton enchainement, si tu voulais une fonction....
Car en fait je me demande à quoi sert cette partie: "lig = 2"
je t'ai marqué par exemple lig=2
lig est le numéro de ligne sur le quel tu détermines le partenaire
il peut venir d'une boucle ou être un paramètre de fonction personnalisé ou de macro paramétrée
enfin
Par ailleurs, peut être l'ais je mal exprimé mais j'ai besoin que la macro que tu m'as écrite soit appliquée à tout le fichier qui ne soit pas vide colonne H (et à partir de la ligne 2)
tu ne l'as pas "mal exprimé" mais "pas exprimé"
Voila
mais je voudrais enchainer d'autres macros pour une mise en page rapide du fichier
donc je ne pouvais pas savoir si cette partie est dans une macro, si c'est une sous-macro dans ton enchainement, si tu voulais une fonction....
Car en fait je me demande à quoi sert cette partie: "lig = 2"
je t'ai marqué par exemple lig=2
lig est le numéro de ligne sur le quel tu détermines le partenaire
il peut venir d'une boucle ou être un paramètre de fonction personnalisé ou de macro paramétrée
enfin
Par ailleurs, peut être l'ais je mal exprimé mais j'ai besoin que la macro que tu m'as écrite soit appliquée à tout le fichier qui ne soit pas vide colonne H (et à partir de la ligne 2)
tu ne l'as pas "mal exprimé" mais "pas exprimé"
Voila
Alors, désolée, je pensais avoir ^été complête:
Donc ce serait une macro à part. Dans ce cadre, que dois je rajouter ?
Et comme expliqué, j'aimerai que la macro soit appliquée à toute la colonne J, tant que H n'est pas vide (sauf ligne 1).
Est ce plus clair ?
MErci en tout cas !
Donc ce serait une macro à part. Dans ce cadre, que dois je rajouter ?
Et comme expliqué, j'aimerai que la macro soit appliquée à toute la colonne J, tant que H n'est pas vide (sauf ligne 1).
Est ce plus clair ?
MErci en tout cas !
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
2 déc. 2011 à 11:54
2 déc. 2011 à 11:54
as tu des vides dans ta colonne H ou se base t' on sur la dernière ligne remplie colonne H?
tu as parlé de tout le fichier: toutes les feuilles du classeur sont concernées?
tu as parlé de tout le fichier: toutes les feuilles du classeur sont concernées?
Pas de vides colonnes H jusqu'en bas de la feuille.
En revanche dans la colonne où on souhaite le résultat (J) il ya des cellules remplies et des cellules vides. Je souhaite, dans tous les cas, que toute info colonne J soit détruite et remplacé par le résultat de la macro.
J'ai dit tout le fichier... je voulais dire toute la feuille, désolée (encore)!
En revanche dans la colonne où on souhaite le résultat (J) il ya des cellules remplies et des cellules vides. Je souhaite, dans tous les cas, que toute info colonne J soit détruite et remplacé par le résultat de la macro.
J'ai dit tout le fichier... je voulais dire toute la feuille, désolée (encore)!
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
2 déc. 2011 à 12:11
2 déc. 2011 à 12:11
Sub determiner_partenaire()
Dim derlig As Integer, lig As Integer
Application.ScreenUpdating = False
derlig = Columns("H").Find("*", , , , , xlPrevious).Row
For lig = 2 To derlig
Select Case Cells(lig, "H")
Case Is = "L6", 76, 83
Cells(lig, "J") = "partenaire 1"
Case Is = 72, 80
' .....
Case Else
'......
End Select
Next
End Sub
select case à compléter et détermines ce que tu fait si aucune donnée (case else) de col H correspond à un partenaire
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
2 déc. 2011 à 13:30
2 déc. 2011 à 13:30
ton minorrii est une usine à gaz qui propose des trucs dont je n'ai pas besoin
utilise https://www.cjoint.com/
et laisse y la macro que tu as complété
utilise https://www.cjoint.com/
et laisse y la macro que tu as complété
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 302
2 déc. 2011 à 10:23
2 déc. 2011 à 10:23
Bonjour
par exemple
par exemple
lig = 2
Select Case Cells(lig, "H")
Case Is = "L6", 76, 83
Cells(lig, "J") = "partenaire 1"
Case is = 72, 80
' .....
Case Else
'......
End Select
