Discussion :

[NadStin]

Bonjour à tous,

voici un moment que je ne vous ai pas sollicité afin d'avoir votre aide...je suis bloquée sur une boucle que je n'arrive pas à finaliser.

j'ai tout d'abord créer un code afin de supprimer le contenu d'une cellule toutes les 11 lignes avec le code ci-dessous :

Code :

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

1
2
3
4
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 5).ClearContents
numeroL = numeroL + 11
Loop

Cela fonctionne parfaitement

Mais j'ai voulu ajouter une condition supplémentaire et plus rien de fonctionne.

J'ai voulu dans un premier temps cumuler les boules pour ne pas les imbriquer mais cela ne fonctionne pas :

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
25
26
27
28
29
30
31
32
33
34
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 5).ClearContents
numeroL = numeroL + 11
Loop
 
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 6).ClearContents
numeroL = numeroL + 11
Loop
 
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 7).ClearContents
numeroL = numeroL + 11
Loop
 
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 8).ClearContents
numeroL = numeroL + 11
Loop
 
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 9).ClearContents
numeroL = numeroL + 11
Loop
 
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 10).ClearContents
numeroL = numeroL + 11
Loop
 
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 11).ClearContents
numeroL = numeroL + 11
Loop

J'ai donc voulu essayer d'imbriquer mais cela ne fonctionne pas non plus...

Code :

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

1
2
3
4
5
6
7
Do While numeroL <= nbLignes
Do While numeoC <= 11
 ActiveSheet.Cells(numeroL, 5).ClearContents
numeroL = numeroL + 11
Loop
numeroC = numeroC + 1
Loop

Je remercie celles et ceux qui prendront le temps de m'aider.

[pijaku]

Bonjour,

Une seconde boucle n'est pas nécessaire.
Il suffit de cibler correctement la plage de cellules à effacer :

Code :

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

1
2
3
4
Do While numeroL <= nbLignes
   ActiveSheet.Range(Cells(numeroL, 5), Cells(numeroL, 11)).ClearContents
   numeroL = numeroL + 11
Loop

[NadStin]

Bonjour,

Une seconde boucle n'est pas nécessaire.
Il suffit de cibler correctement la plage de cellules à effacer :

Code :

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

1
2
3
4
Do While numeroL <= nbLignes
   ActiveSheet.Range(Cells(numeroL, 5), Cells(numeroL, 11)).ClearContents
   numeroL = numeroL + 11
Loop

Bonjour Franck,

Merci pour votre retour,

cependant, j'ai un message d'erreur d'exécution lors du lancement (erreur d'exécution 1004 : erreur définie par l'application ou par l'objet).
Je tente de réexpliquer ce que je souhaite faire :
numeroL = 12
numeroC =5
Soit L12C5
Supprimer le contenu de la cellule L12C5, L12C6, L12C7, L12C8, L12C9, L12C10, L12C11, soit + 1 à la colonne pendant 6 colonnes -attention cellule par cellule et non la plage
puis faire la même chose en ligne + 11

Sur votre code, je ne vois pas la même chose, c'est pour cette raison que je me suis permise de réexpliquer.
En vous remerciant d'avance,

Cordialement,

Nadège

[Philippe Tulliez]

Bonjour,
L'approche de Franck était correcte mais il a oublié le "." devant .Cells d'où l'erreur 1004.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub t()
  Dim numeroL As Long
  Dim nbLignes As Long
  Dim Ecart As Integer
  numeroL = 1: nbLignes = 55
  Ecart = 11
  Do While numeroL <= nbLignes
     With ActiveSheet
     .Range(.Cells(numeroL, 5), .Cells(numeroL, 11)).ClearContents
      numeroL = numeroL + Ecart
     End With
  Loop
End Sub

[NadStin]

Bonjour ,

Cela fonctionne, merci bcp. Par contre cette formulation me pose un autre problème.

Lors du code :

Code :

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

1
2
3
4
Do While numeroL <= nbLignes
 ActiveSheet.Cells(numeroL, 5).ClearContents
numeroL = numeroL + 11
Loop

Donc la cellule L12C5 était bien vidée ainsi que la L23C5 et ainsi de suite... Dans une autre partie de ma macro, il est indiqué que si le contenu de ces cellules est vidé, cela supprime également celui des cellules 6 autres en dessous. Lorsque de ma boucle qui ne fonctionnait que sur une seule colonne, cela fonctionnait toujours, c'est à dire qu'il supprimait bien le contenu de L13C5 : L18C5.
Cependant avec le code indiqué, cela ne fonctionne plus comme si c'était la plage qui était sélectionné et non cellule par cellule.

Vous me comprenez ?

Merci d'avance,

Cordialement,

Nadège

[Philippe Tulliez]

Bonjour,

Dans une autre partie de ma macro, il est indiqué que si le contenu de ces cellules est vidé, cela supprime également celui des cellules 6 autres en dessous. Lorsque de ma boucle qui ne fonctionnait que sur une seule colonne, cela fonctionnait toujours, c'est à dire qu'il supprimait bien le contenu de L13C5 : L18C5.
Vous me comprenez ?

Pas trop.

Le SI (en rouge) me perturbe car on efface une plage de cellules d'une ligne et de plusieurs colonnes toutes les 11 lignes donc il n'y a pas de raison de vérifier si on les a effacées sauf si une condition m'échappe.
S'il faut en plus effacer plusieurs lignes d'une ou plusieurs colonnes dans la même boucle, il suffit de le faire en même temps mais ce n'est pas clair pour moi.

[EDIT]

Exemple

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 t()
  Dim numeroL As Long    ' Compteur de lignes
  Dim StopLignes As Long ' Jusqu'à quelle ligne
  Dim NbLignes           ' Nbre de lignes à effacer après
  Dim Ecart As Integer   ' Ecart du nombre de lignes
  numeroL = 1: StopLignes = 55: NbLignes = 6
  Ecart = 11
  Do While numeroL <= StopLignes
     With ActiveSheet
     .Range(.Cells(numeroL, 5), .Cells(numeroL, 11)).ClearContents
     .Range(.Cells(numeroL + 1, 5), .Cells(numeroL + NbLignes, 5)).ClearContents
      numeroL = numeroL + Ecart
     End With
  Loop
End Sub

[NadStin]

Je comprend que cela ne soit pas très clair mais il est important pour moi que je supprime cellule par cellule et non une plage.

En fait voici ce que j'aimerais faire mais qui ne fonctionne pas...

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
 Dim nbLignes As Integer
 Dim nbCel As Integer
 Dim numeroL As Integer
 Dim numeroC As Integer
 nbLignes = (Cells(Rows.Count, 3).End(xlUp).Row + 1)
 nbCel = 11
 numeroL = 12
 numeroC = 5
 
 
 
Do While numeroL <= nbLignes,numeroC<=nbCel
With ActiveSheet
.Range(.Cells(numeroL, numeroC)).ClearContents
numeroL = numeroL + 11
numeroC = numeroC + 1
End With
Loop

[Philippe Tulliez]

Bonjour,

En fait voici ce que j'aimerais faire mais qui ne fonctionne pas...

Pour que l'on puisse vous aider efficacement, il est préférable que vous l'exprimiez en français plutôt que de montrer un code surtout si celui ci, ne répond pas à vos attentes.
Lorsque j'écris une application pour un client dont à la base, je ne connais sans doute pas le cœur de son activité et les pratiques en usage. Il me l'exprime en français et je suis ainsi capable ainsi d'écrire le code qui réalisera ce qu'il souhaite.

Si vous voulez absolument faire des boucles alors que vraisemblablement il n'en faut pas, vous trouverez sans doute quelqu'un d'autres pour le réaliser parce-que j'aime travailler efficacement et pas en bricolant.

[NadStin]

Si vous voulez absolument faire des boucles alors que vraisemblablement il n'en faut pas, vous trouverez sans doute quelqu'un d'autres pour le réaliser parce-que j'aime travailler efficacement et pas en bricolant.

Il me semblait l'avoir décrit en Français précédemment mais visiblement cela n'a pas été compris, c'est pour cette raison que j'ai essayé d'écrire le code.
Et il s'agit bien d'une boucle dont j'ai besoin

Je souhaite vider le contenu d'une cellule de réitérer cela 6 fois en se décalant sur la droite, puis descendre de 11 cellules et recommencer.

[Philippe Tulliez]

Bonjour,
Le Do While...Loop est une boucle
Dans la procédure que j'ai publiée, la boucle commence à la ligne 1 et se termine avant la ligne 50
Toutes les 11 lignes supprime le contenu des colonnes E à K de cette ligne (en jaune) et ensuite supprime le contenu les 6 lignes suivantes de la colonne E (en saumon)
S'il faut moins de ligne ou d'autres colonnes il suffit de modifier les variables

Si ce n'est pas cela que vous attendez, une petite illustration serait la bienvenue

Illustration

[NadStin]

Voici avec une illustration :
Avant la suppression :


la boucle doit supprimer les cellules de couleurs indépendamment les unes des autres :

tout dabord :


puis



pour arriver à la fin de la boucle au résultat suivant :

[Philippe Tulliez]

Bonjour,
Donc on en revient à la première proposition, toutes les x lignes et sur 7 colonnes ?
A moins que ce ne soit pour un devoir, je ne comprends pas la raison de vouloir faire deux boucles pour cela en tous les cas c'est sans moi car je trouve cela parfaitement inutile car le résultat final restera le même. A moins que vous ne vouliez le mettre en couleur mais là encore pas besoin de boucle, une simple MFC est suffisante.

[NadStin]

Il me semblait que ce forum était un lieu d'entraide...et pas de jugement.
Je demande de l'aide pour créer quelque chose, vous ne connaissez pas la suite du travail, vous n'êtes donc pas en possession des éléments pour indiquer si cela est stupide ou non.
Je vous remercie d'avoir pris part à la conversation mais la prochaine fois, vous pouvez vous abstenir afin d'éviter d'insulter le travail des autres, qui certes n'est peut être pas à votre niveau sur ce point mais qui essaient d'avancer comme ils peuvent.
Cordialement.
Une personne visiblement stupide.

[Philippe Tulliez]

Bonjour,
C'est effectivement un forum d'entraide et le nombre de messages dans mes statistiques prouvent que j'y contribue amplement mais j'aime aider en essayant de montrer la voie la plus simple car il me semble que le but ici c'est d'évoluer et votre demande initiale était d'effacer et comme Franck, l'a signaler au départ, il ne fallait pas plusieurs boucles pour effectuer ce travail.
Si vous aviez expliqué depuis le départ que vous vouliez faire deux boucles parce-qu'il y avait plusieurs traitements à effectuer cela aurait été plus simple

Exemple avec deux boucles imbriquées. Il suffit de modifier la valeur des constantes si les valeurs ne vous conviennent pas

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 t()
 Const FirstRow As Long = 1           ' Première ligne à traiter
 Const LastRow As Long = 50           ' Dernière ligne à traiter
 Const FirstColumn As Integer = 5     ' Première colonne à traiter
 Const NumberOfColumns As Integer = 6 ' Nombre de colonnes à traiter
 Const Gap As Long = 11               ' Ecart
 Dim r As Long, c As Integer ' Ligne / Colonne
 With ActiveCell
   For r = FirstRow To LastRow Step Gap
     For c = FirstColumn To FirstColumn + NumberOfColumns - 1
      .Cells(r, c).ClearContents
     Next
   Next
 End With
End Sub