Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Apparaitre les RF

Apparaitre les RF

16 réponses
Avatar
Érico
J'ai la macro suivante:
Elle me fait aparaitre toutes les groupe de 4 lignes, les projets contenant
la lettre "A" dans la colonne G
Les choix peuvent ête les suivantes:
R
C
A
R - C
R - A
R - C
C - A
R - C - A


Je veux rajouter les choix suivants:
RF-C-A
RF-A
RF-C

Je veux modifier cette macro pour le faire afficher tous les projets
contenant les lettres "RF"

Merci
____________________________________________________________

Sub masquesi()

'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect

Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
Adr = .Range("g" & i).Address
If Evaluate("(" & Adr & "=0)+(" & Adr & "=""R"")+" & _
"(" & Adr & "="" "")") > 0 Then
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With

End Sub
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Youky
ceci à tester
Youky

Sub masquesi()
nom = InputBox("Indiquez les lettres", "Rechercher")
If nom = "" Then Exit Sub
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
k = IIf(Len(nom) = 1, 1, 2)
If Left(.Cells(i, 7), k) = nom Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

"Érico" a écrit dans le message de news:
%
J'ai la macro suivante:
Elle me fait aparaitre toutes les groupe de 4 lignes, les projets
contenant la lettre "A" dans la colonne G
Les choix peuvent ête les suivantes:
R
C
A
R - C
R - A
R - C
C - A
R - C - A


Je veux rajouter les choix suivants:
RF-C-A
RF-A
RF-C

Je veux modifier cette macro pour le faire afficher tous les projets
contenant les lettres "RF"

Merci
____________________________________________________________

Sub masquesi()

'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect

Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
Adr = .Range("g" & i).Address
If Evaluate("(" & Adr & "=0)+(" & Adr & "=""R"")+" & _
"(" & Adr & "="" "")") > 0 Then
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With

End Sub



Avatar
Érico
Merci pour ton aide, mais plusieurs problèmes arrivent.

Premièrement:
la macro bloque à la ligne suivante:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,

Deuxièment,
Quand je cache cette ligne dans la macro, il me demande les lettres et
je ne veux pas cette question. Je veux absolument les projets contenant les
lettres "RF" seulement. Mon ancienne macro, il me faisait seulement
apparaitre les projets contenant la lettre "A", donc ça pouvait être R-A,
C-A etc...

Troisièment:
Quand j'écris les lettre RF dans ma réponse, il me donnent pas seulement
les projets "RF"

Comment résoudre ces problèmes.

Merci

Cordialement





"Youky" a écrit dans le message de news:
%
ceci à tester
Youky

Sub masquesi()
nom = InputBox("Indiquez les lettres", "Rechercher")
If nom = "" Then Exit Sub
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
k = IIf(Len(nom) = 1, 1, 2)
If Left(.Cells(i, 7), k) = nom Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

"Érico" a écrit dans le message de news:
%
J'ai la macro suivante:
Elle me fait aparaitre toutes les groupe de 4 lignes, les projets
contenant la lettre "A" dans la colonne G
Les choix peuvent ête les suivantes:
R
C
A
R - C
R - A
R - C
C - A
R - C - A


Je veux rajouter les choix suivants:
RF-C-A
RF-A
RF-C

Je veux modifier cette macro pour le faire afficher tous les projets
contenant les lettres "RF"

Merci
____________________________________________________________

Sub masquesi()

'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect

Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
Adr = .Range("g" & i).Address
If Evaluate("(" & Adr & "=0)+(" & Adr & "=""R"")+" & _
"(" & Adr & "="" "")") > 0 Then
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With

End Sub







Avatar
Youky
cela peut être RF ou RF-A ...RFB toute les 2 premieres lettres qui commence
par RF
si ca va pas donne un exemple de la colonne G si il y a des valeurs dans
toutes les lignes
Youky
Sub masquesi()
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
If Left(.Cells(i, 7), 2) = "RF" Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub
Avatar
Érico
Ta macro s'améliore, mais encore des lignes qui ne drvrait pas être là.

Toutes les 4 lignes, il y a la formule suivante: (=+Annexe_1.1!I17).
Le résultat peut être comme mentionné dans mon premier envoie, comme suit:
R
C
A
R - C
R - A
R - C
C - A
R - C - A


Je veux rajouter les choix suivants:
RF-C-A
RF-A
RF-C

Et il y a aussi des lignes qui n'ont rien comme résultat au travers de la
formule (=+Annexe_1.1!I17).




Merci


"Youky" a écrit dans le message de news:

cela peut être RF ou RF-A ...RFB toute les 2 premieres lettres qui
commence par RF
si ca va pas donne un exemple de la colonne G si il y a des valeurs dans
toutes les lignes
Youky
Sub masquesi()
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
If Left(.Cells(i, 7), 2) = "RF" Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub



Avatar
Youky
Dans cette macro tu peux facilement rajouter ce que tu désires.
Ici tout ce qui commence par "RF" ou "R -" est pris en compte
R
C
A
R - C ................... pris en compte
R - A................... pris en compte
R - C................... pris en compte
C - A
R - C - A............. pris en compte
RF-C-A............... pris en compte
RF-A................... pris en compte
RF-C................... pris en compte
Youky


Sub masquesi()
Dim tv As Boolean
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
'If Left(.Cells(i, 7), 2) = "RF" Then tv = True
If Left(.Cells(i, 7), 3) = "RF-" Then tv = True
If Left(.Cells(i, 7), 3) = "R -" Then tv = True ' sur 3 lettres
If Left(.Cells(i,7),2) = "R-" Then tv = True 'au cas si pas
d'espace 2lettres
If tv = True Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
tv = False
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

"Érico" a écrit dans le message de news:
%23sR4o$
Ta macro s'améliore, mais encore des lignes qui ne drvrait pas être là.

Toutes les 4 lignes, il y a la formule suivante: (=+Annexe_1.1!I17).
Le résultat peut être comme mentionné dans mon premier envoie, comme suit:
R
C
A
R - C
R - A
R - C
C - A
R - C - A


Je veux rajouter les choix suivants:
RF-C-A
RF-A
RF-C

Et il y a aussi des lignes qui n'ont rien comme résultat au travers de la
formule (=+Annexe_1.1!I17).




Merci


"Youky" a écrit dans le message de news:

cela peut être RF ou RF-A ...RFB toute les 2 premieres lettres qui
commence par RF
si ca va pas donne un exemple de la colonne G si il y a des valeurs dans
toutes les lignes
Youky
Sub masquesi()
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
If Left(.Cells(i, 7), 2) = "RF" Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub







Avatar
Érico
non mais, je veux seulement les RF, pas les R.
Un GROS Merci!


"Youky" a écrit dans le message de news:

Dans cette macro tu peux facilement rajouter ce que tu désires.
Ici tout ce qui commence par "RF" ou "R -" est pris en compte
R
C
A
R - C ................... pris en compte
R - A................... pris en compte
R - C................... pris en compte
C - A
R - C - A............. pris en compte
RF-C-A............... pris en compte
RF-A................... pris en compte
RF-C................... pris en compte
Youky


Sub masquesi()
Dim tv As Boolean
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
'If Left(.Cells(i, 7), 2) = "RF" Then tv = True
If Left(.Cells(i, 7), 3) = "RF-" Then tv = True
If Left(.Cells(i, 7), 3) = "R -" Then tv = True ' sur 3 lettres
If Left(.Cells(i,7),2) = "R-" Then tv = True 'au cas si pas
d'espace 2lettres
If tv = True Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
tv = False
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

"Érico" a écrit dans le message de news:
%23sR4o$
Ta macro s'améliore, mais encore des lignes qui ne drvrait pas être là.

Toutes les 4 lignes, il y a la formule suivante: (=+Annexe_1.1!I17).
Le résultat peut être comme mentionné dans mon premier envoie, comme
suit:
R
C
A
R - C
R - A
R - C
C - A
R - C - A


Je veux rajouter les choix suivants:
RF-C-A
RF-A
RF-C

Et il y a aussi des lignes qui n'ont rien comme résultat au travers de la
formule (=+Annexe_1.1!I17).




Merci


"Youky" a écrit dans le message de news:

cela peut être RF ou RF-A ...RFB toute les 2 premieres lettres qui
commence par RF
si ca va pas donne un exemple de la colonne G si il y a des valeurs dans
toutes les lignes
Youky
Sub masquesi()
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
If Left(.Cells(i, 7), 2) = "RF" Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub











Avatar
Érico
Voici mes dernieres nouvelles

Ja vais faire un menu déroulant avec les choix suivants:

R
C
A
A -R
C -R
C -R-A
RF
RF-C
RF-A
RF-C-A

Si on lui demande de regarder les deux premier caractères, comme dans A-R,
il y a un espace
De me faire apparaitre qui commence par "A" et "C"
Je veux adapté mon ancienne macro pour
Dans l'onglet (l'annexe 1.4)

C
A
A -R
C -R
C -R-A

Et celle que je t'ai demander, de me faire appaitre seulement les projets
avec les lettres "RF"
Dans l'onglet (l'onglet 1.6)

RF
RF-C
RF-A
RF-C-A




"Érico" a écrit dans le message de news:

non mais, je veux seulement les RF, pas les R.
Un GROS Merci!


"Youky" a écrit dans le message de news:

Dans cette macro tu peux facilement rajouter ce que tu désires.
Ici tout ce qui commence par "RF" ou "R -" est pris en compte
R
C
A
R - C ................... pris en compte
R - A................... pris en compte
R - C................... pris en compte
C - A
R - C - A............. pris en compte
RF-C-A............... pris en compte
RF-A................... pris en compte
RF-C................... pris en compte
Youky


Sub masquesi()
Dim tv As Boolean
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
'If Left(.Cells(i, 7), 2) = "RF" Then tv = True
If Left(.Cells(i, 7), 3) = "RF-" Then tv = True
If Left(.Cells(i, 7), 3) = "R -" Then tv = True ' sur 3 lettres
If Left(.Cells(i,7),2) = "R-" Then tv = True 'au cas si pas
d'espace 2lettres
If tv = True Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
tv = False
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

"Érico" a écrit dans le message de news:
%23sR4o$
Ta macro s'améliore, mais encore des lignes qui ne drvrait pas être là.

Toutes les 4 lignes, il y a la formule suivante: (=+Annexe_1.1!I17).
Le résultat peut être comme mentionné dans mon premier envoie, comme
suit:
R
C
A
R - C
R - A
R - C
C - A
R - C - A


Je veux rajouter les choix suivants:
RF-C-A
RF-A
RF-C

Et il y a aussi des lignes qui n'ont rien comme résultat au travers de
la formule (=+Annexe_1.1!I17).




Merci


"Youky" a écrit dans le message de news:

cela peut être RF ou RF-A ...RFB toute les 2 premieres lettres qui
commence par RF
si ca va pas donne un exemple de la colonne G si il y a des valeurs
dans toutes les lignes
Youky
Sub masquesi()
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
If Left(.Cells(i, 7), 2) = "RF" Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub















Avatar
Youky
voici un cumul fait avec ta macro et en plus la mienne.
Tu conserves exactement ce que fait l'ancienne, plus les RF sur 2 lettres
Si tu veux pas que RF seul soit pris tu mets sur 3 lettres
If Left(.Cells(i, 7), 3) = "RF " Then tv = True 'espace
If Left(.Cells(i, 7), 3) = "RF-" Then tv = True 'tiret
j'ai rajouté ScreenUpdating qui est plus rapide et moins génant à l'écran
Youky

Sub masquesi()
Application.ScreenUpdating = False
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect

Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
Adr = .Range("g" & i).Address
If Evaluate("(" & Adr & "=0)+(" & Adr & "=""R"")+" & _
"(" & Adr & "="" "")") > 0 Then tv = True
If Left(.Cells(i, 7), 2) = "RF" Then tv = True
If tv = True Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
tv = False
End If

Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.ScreenUpdating = False
End Sub
Avatar
Érico
Bonjour
Merci encore mille fois.

J'aime bien ta macro pour cacher l'exécutrion de la macro
Les deux macro ne fonctionne pas correctement.

Dans l'annexe 1.4, il apparait tous, sauf les "R", meme les RF
Dans l'annexe 1.6, il apparait aucun RF
- AR
- CRA
- AR
- C
- CR
- AR

Comme je t'ai dit, voici tous les choix et où ils doivent être:
R
C (Annexe 1.4)
A (Annexe 1.4)
A -R (Annexe 1.4) j'ai mis un espace après le "A"
C -R (Annexe 1.4) j'ai mis un espace après le "C"
C -R-A (Annexe 1.4) j'ai mis un espace après le "C"
RF (Annexe 1.6)
RF-C (Annexe 1.6)
RF-A (Annexe 1.6)
RF-C-A (Annexe 1.6)




"Youky" a écrit dans le message de news:

voici un cumul fait avec ta macro et en plus la mienne.
Tu conserves exactement ce que fait l'ancienne, plus les RF sur 2 lettres
Si tu veux pas que RF seul soit pris tu mets sur 3 lettres
If Left(.Cells(i, 7), 3) = "RF " Then tv = True 'espace
If Left(.Cells(i, 7), 3) = "RF-" Then tv = True 'tiret
j'ai rajouté ScreenUpdating qui est plus rapide et moins génant à l'écran
Youky

Sub masquesi()
Application.ScreenUpdating = False
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect

Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.4")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 414 Step 4
Adr = .Range("g" & i).Address
If Evaluate("(" & Adr & "=0)+(" & Adr & "=""R"")+" & _
"(" & Adr & "="" "")") > 0 Then tv = True
If Left(.Cells(i, 7), 2) = "RF" Then tv = True
If tv = True Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
tv = False
End If

Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.ScreenUpdating = False
End Sub




Avatar
Érico
Voici ma dernière version du "Annexe 1.6"
Il fait afficher des projets vide et pas juste des "RF"
________________________________
Sub masques16()
Dim tv As Boolean
'deverrouille
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveSheet.Unprotect
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
With Worksheets("Annexe_1.6")
.Unprotect ' mot de passe si nécessaire
' tu sélectionnes la première cellule où le la boucle débute :
For i = 14 To 623 Step 5
'If Left(.Cells(i, 7), 2) = "RF" Then tv = True
If Left(.Cells(i, 7), 3) = "RF" Then tv = True
'If Left(.Cells(i, 7), 3) = "R -" Then tv = True ' sur 3 lettres
If Left(.Cells(i, 7), 2) = "R-" Then tv = True 'au cas si pas espace
2lettres
If Left(.Cells(i, 7), 3) = "RF-C" Then tv = True
If Left(.Cells(i, 7), 3) = "RF-C-A" Then tv = True
If tv = True Then
Adr = .Range("g" & i).Address
.Range("G" & i, "G" & i + 4).EntireRow.Hidden = True
tv = False
End If
Next
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub
1 2