Problèmes macro sous excel
Résolu/Fermé
Barbebulle
Messages postés
7
Date d'inscription
jeudi 25 décembre 2008
Statut
Membre
Dernière intervention
11 janvier 2009
-
28 déc. 2008 à 22:40
Barbebulle Messages postés 7 Date d'inscription jeudi 25 décembre 2008 Statut Membre Dernière intervention 11 janvier 2009 - 29 déc. 2008 à 13:33
Barbebulle Messages postés 7 Date d'inscription jeudi 25 décembre 2008 Statut Membre Dernière intervention 11 janvier 2009 - 29 déc. 2008 à 13:33
A voir également:
- Problèmes macro sous excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
4 réponses
al1_delon
Messages postés
259
Date d'inscription
samedi 27 décembre 2008
Statut
Membre
Dernière intervention
16 octobre 2009
25
28 déc. 2008 à 22:47
28 déc. 2008 à 22:47
Bonsoir,
Dans quelle rubrique est enregistrée votre macro dans Vba, "Worksheets_change" ?
Dans quelle rubrique est enregistrée votre macro dans Vba, "Worksheets_change" ?
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 257
29 déc. 2008 à 07:18
29 déc. 2008 à 07:18
Bonjour,
déjà pour la 1ère partie tu n'es pas obligé de faire un select à chaque fois, et tu peux regrouper plusieurs colonnes pour les masquer.
ex:
ou bien tu les sélectionnes toutes sur ta feuille et tu nommes la sélection ('insertion / nom / définir') colMasquées par exemple et tu fais :
Pour la 2nde partie il faut choisir entre .cells(72,9) ou .range("I72"), .cells("I72") n'existe pas.
Ensuite si tu fais 4 if, il faut 4 end if.
ou bien remplace
par
ou bien fais un select case :
eric
déjà pour la 1ère partie tu n'es pas obligé de faire un select à chaque fois, et tu peux regrouper plusieurs colonnes pour les masquer.
ex:
Range("K:M,P:R,U:W,Z:AB").EntireColumn.Hidden = True
ou bien tu les sélectionnes toutes sur ta feuille et tu nommes la sélection ('insertion / nom / définir') colMasquées par exemple et tu fais :
Range("colMasquées").EntireColumn.Hidden = True
Pour la 2nde partie il faut choisir entre .cells(72,9) ou .range("I72"), .cells("I72") n'existe pas.
Ensuite si tu fais 4 if, il faut 4 end if.
ou bien remplace
else if
par
elseif
ou bien fais un select case :
Select Case Worksheets("Feuil2").Cells(72, 9).Value Case 1 Rows("54:600").Selection.EntireRow.Hidden = True Case 2 Rows("14:53").EntireRow.Hidden = True Rows("94:600").EntireRow.Hidden = True Case 3 Rows("14:93").EntireRow.Hidden = True Rows("144:600").EntireRow.Hidden = True Case 4 Rows("14:143").EntireRow.Hidden = True Rows("184:600").EntireRow.Hidden = True End Select
eric
Barbebulle
Messages postés
7
Date d'inscription
jeudi 25 décembre 2008
Statut
Membre
Dernière intervention
11 janvier 2009
29 déc. 2008 à 13:33
29 déc. 2008 à 13:33
Encore un grand merci à tous