Simplification de code VBA Excel

Bonjour à tous,

Je suis débutant et je cherche à simplifier plusieurs suites de codes :

1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Range("S365").Select Selection.Value = Range("A2").Value Range("S368:S369").Select Selection.Value = Range("A2").Value Range("S371:S372").Select Selection.Value = Range("A2").Value Range("S374:S376").Select Selection.Value = Range("A2").Value Range("S378").Select Selection.Value = Range("A2").Value Range("S380:S381").Select Selection.Value = Range("A2").Value Range("S382:S383").Select Selection.Value = Range("A2").Value

---

2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

If Sheets("MEDIC").Range("A316").Value = "" Then Sheets("MEDIC").Rows("316:316").Select Selection.EntireRow.Hidden = True End If   If Sheets("MEDIC").Range("A317").Value = "" Then Sheets("MEDIC").Rows("317:317").Select Selection.EntireRow.Hidden = True End If   If Sheets("MEDIC").Range("A318").Value = "" Then Sheets("MEDIC").Rows("318:318").Select Selection.EntireRow.Hidden = True End If   If Sheets("MEDIC").Range("A319").Value = "" Then Sheets("MEDIC").Rows("319:319").Select Selection.EntireRow.Hidden = True End If   If Sheets("MEDIC").Range("A320").Value = "" Then Sheets("MEDIC").Rows("320:320").Select Selection.EntireRow.Hidden = True End If

---

Auriez-vous une piste pour ce type de code à répétition ?

Je vous remercie par avance

Bonsoir,


Fait une recherche sur le forum et sur le web des liens intéressants en VBA et sur les select, il y a beaucoup de choses.

Les sélection c'est ce que fait excel dans l'enregistreur de macro, mais cela n'est pas utile en programmation VBA.

Par exemple tu peux remplacer

Code:

---

1 2	Range("S365").Select Selection.Value = Range("A2").Value

---

par

Code:

---

Range("S365")= Range("A2").Value

---

Edit
Exemple de modification de ton code 2 :

Code:

---

1 2 3 4 5 6

Dim i as integer with Sheets("MEDIC") for i = 320 to 316 step -1 If .cells(i,1).Value = "" Then :.Rows(i).EntireRow.Hidden = True: next i end with

---

Merci je vais regarder et essayer:D

petite précision :dans le code j'analyse deux cellules dans deux feuilles différentes

Cdt

Bonsoir AALEX,

Ton code pour le code 2 marche nickel mais je ne comprends pas comment
Est-ce qu'il prend pas défaut la première cellule de ma ligne si on ne lui précise rien ?

Merci pour ta réponse :ccool:

si je ne me trompe pas le 1 corespond à la colonne:lol:

Bonjour,

Citation:

---

petite précision :dans le code j'analyse deux cellules dans deux feuilles différentes

---

Au lieu d'utiliser en "dur", le nom des feuilles, tu pourrais aussi déclarer des variables objets en tête de module et les initialiser dans une procédure de départ, par exemple Main.
C'est plus clair à la lecture du code et surtout cela te facilitera la vie pour la maintenance.
Ainsi ce code

Code:

---

1 2 3 4 5 6

Dim i as integer with Sheets("MEDIC") for i = 320 to 316 step -1 If .cells(i,1).Value = "" Then :.Rows(i).EntireRow.Hidden = True: next i end with

---

Pourrait devenir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Dim shtA As Worksheet, shtB As Worksheet Sub Main() With ThisWorkbook Set shtA = .Worksheets("MEDIC") Set shtB = .Worksheets("Feuil1") End With Verif End Sub Sub Verif() Dim i As Integer With shtA For i = 320 To 316 Step -1 If .Cells(i, 1).Value = "" Then: .Rows(i).EntireRow.Hidden = True: Next i End With End Sub

---

Bonjour,

J'ai parlé un peu trop vite car le code marche pas toujours complétement.

Je m'explique :

J'ai deux feuilles identiques avec 300 lignes de produits à commander
Sur la première (dotation), l'utilisateur a le choix de cocher une cellule et là
j'analyse cette cellule afin de masque la ligne ou pas sur la deuxième feuille.

Par rapport à ce code j'ai recopié l'information(croix) de la première feuille sur la deuxième mais là le problème est que le code fonctionne bien quand il y a des suites de croix mais se bloque quand j'ai une cellule vide puis une croix puis une cellule vide.......

Bonne journée

Bonjour,


C'est autre chose que tu demandes là non, il me semble pas avoir lu dans tes précédents postes quelque chose sur une croix.
Je viens de faire un test et je ne vois pas de soucis, peut être pourrais-tu nous montrer le code que tu utilises.

Mon exemple avec des valeurs dans la colonne A et quelques X dans la colonne B, ici on part de la ligne 1 a la derniere ligne renseignée dans la colonne A.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub forum_croix() Dim i As Long, Derlig As Long Application.ScreenUpdating = False Const Mcol As Integer = 1 'Ici la Colonne maitre = A et colonne des X = B   With Feuil1 'Sheets("MEDIC") Derlig = .Cells(.Rows.Count, Mcol).End(xlUp).Row   For i = 1 To Derlig ' ou For i = derlig To 1 Step -1 ' ici les 2 fonctionnent, c'est pour les delete step -1 If .Cells(i, Mcol + 1).Value = "x" Then: .Rows(i).EntireRow.Hidden = True: Next i End With   Application.ScreenUpdating = True End Sub

---

Pour tout compliquer ma colonne n'est pas en B mais en AE.

J'ai essayé de changer le 1 en 2 3 ....... mais pour le moment rien

J'ai joint un fichier pour que cela soit plus précis.:oops:

Bonjour,
Je ne vois pas ce qui est compliqué.
La colonne AE est la 31. Il suffit de te placer dans une cellule de la colonne et taper =COLONNE() pour connaître son numéro ou dans n'importe quelle cellule du classeur =COLONNE(AE1).
En vba

Code:

---

Debug.Print Range("AE1").Column

---

Oui j'avais bien trouvé le 31 et j'ai cela mais pour le moment je pense que je n'ai pas mis le 31 au bon endroit

Mais je ne lâche pas
:mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub forum_croix() Dim i As Long, Derlig As Long Application.ScreenUpdating = False Const Mcol As Integer = 31 'Ici la Colonne maitre = A et colonne des X = B   With Feuil1 'Sheets("MEDIC") Derlig = .Cells(.Rows.Count, Mcol).End(xlUp).Row   For i = 1 To Derlig ' ou For i = derlig To 1 Step -1 ' ici les 2 fonctionnent, c'est pour les delete step -1 If .Cells(i, Mcol + 1).Value = "x" Then: .Rows(i).EntireRow.Hidden = True: Next i End With   Application.ScreenUpdating = True End Sub

---

J'ai réessayé le code ci-dessous que vous m'aviez transmis et ça marche
J'ai enlevé le .

Code:

---

1 2 3 4 5

Sub Macro1() For i = 320 To 13 Step -1 If Cells(i, 31).Value = "" Then: Rows(i).EntireRow.Hidden = True: Next i End Sub

---

Merci :lol: !!!!!!!!!!!!!!!!!!!!!!!!