Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ROW et variable

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Swing92
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Swing92

Guest
Bonjour,

Je souhaite rendre ce code un peu plus générique :

If UCase(Range("G6")) = "OUI" Then
Rows("7:18").EntireRow.Hidden = False
Else
Rows("7:18").EntireRow.Hidden = True
Range("G7:M18").ClearContents
End If

Les colonnes sont toujours G et M et les lignes à masquer changes en fonction de la cellule testée. Je souhaite juste changer en fonction de la cellule test les valeurs de L1 et L2 (cf code)

J'ai essayé ceci mais j'ai un message Erreur 13 imcompatibilité de type...

Comment donner une variable à la fonction row ?

Merci d'avance - Ci-après mon code :

----------
Private Sub Worksheet_Change(ByVal Target As Range)

Dim L1 As String, L2 As String, ZoneH As String, ZoneClear As String
Application.EnableEvents = False
If UCase(Range("G6")) = "OUI" Then
L1 = "7"
L2 = "18"
ZoneH = L1 & ":" & L2
ZoneClear = "G" & L1 & ":" & "M" & L2
Rows(ZoneH).EntireRow.Hidden = False
Else
Rows(ZoneH).EntireRow.Hidden = True
Range(ZoneClear).ClearContents
End If
Application.EnableEvents = True
End Sub

Merci pour votre aide
 
Trier par date Trier par votes
Re : ROW et variable

Code: 
NoLigne1 = 6
NoCol1 = 7
Nolig2 = 7
NoLig3 = 18
If UCase(Cells(NoLig1, NoCol1)) = "OUI" Then
    Rows(NoLig2 & ":" & NoLig3).EntireRow.Hidden = False
Else
    'etc...
Est-ce bien ce que tu voulais ?
@+
 
Vote positif 0 Vote négatif
Re : ROW et variable

Merci pour ta réponse Spitnolan08 mais j'ai un message d'erreur :

Erreur d'execution '1004" Erreur définie par l'application ou par l'objet.

Ci-après mon code modifié avec tes infos :

If UCase(Range("G6")) = "OUI" Then
L1 = 7
L2 = 18
Range(Cells(L1, 1), Cells(L2, 1)).EntireRow.Hidden = False
Else
Range(Cells(L1, 1), Cells(L2, 1)).EntireRow.Hidden = True
Range(Cells(L1, 7), Cells(L2, 13)).ClearContents
End If
 
Vote positif 0 Vote négatif
Re : ROW et variable

Re,

Pas testé, mais ce doit être pour la 2ème partie de la condition :
Code: 
If UCase(Range("G6")) = "OUI" Then
L1 = 7
L2 = 18
Range(Cells(L1, 1), Cells(L2, 1)).EntireRow.Hidden = False
Else
L1 = 7
 L2 = 18
Range(Cells(L1, 1), Cells(L2, 1)).EntireRow.Hidden = True
Range(Cells(L1, 7), Cells(L2, 13)).ClearContents
End If
Cordialement
 
Vote positif 0 Vote négatif
Re : ROW et variable

Merci pour ta réponse Epaf mais j'ai le même message d'erreur qu'avec mon code :

Erreur 13 imcompatibilité de type...

J'ai déclaré les variables comme suit : Dim L1 As Integer, L2 As Integer

If UCase("G6") = "OUI" Then
L1 = 7
L2 = 18

Rows(L1 & ":" & L2).EntireRow.Hidden = False

Else
Rows(L1 & ":" & L2).EntireRow.Hidden = True
Range(Cells(L1, 7), Cells(L2, 13)).ClearContents

End If
 
Vote positif 0 Vote négatif
Re : ROW et variable

Bien joué Spitnolan08 effectivement j'avais oublié de remettre les valeurs de L1 et L2 dans la 2 eme close de mon test.

Et j'ai fait la même chose avec le code de Epaf ...

Merci à vous 2 cela fonctionne bien.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
238
treza88
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
Autres la fonction similaire
Réponses
11
Affichages
888
patricktoulon
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
744
un internaute
U
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
549
youguybass
Y
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
480
nabilexcel2007
N
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
315
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
562
mikeduff
M
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
911
TooFatBoy
U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
269
un internaute
U
R
  • Question Question
Microsoft 365 Fonctions conditionnelles Office 64 bits et Office 32 bits
Réponses
10
Affichages
454
dysorthographie
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
334
patricko-13
P
Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
773
youguybass
Y
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
C
  • Résolu(e)
XL 2021 boucle: cellules et shapes
Réponses
3
Affichages
187
chindou
C
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
585
sylvanu
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
487
eric72
E
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
510
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…