Discussion :

[RAID14]

Bonjour à tous,

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

1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Edit
Exemple de modification de ton code 2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RAID14]

Merci je vais regarder et essayer

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

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[RAID14]

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

[aalex_38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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