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

Microsoft 365 Créer une boucle sur une plage de cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Dravol
  • 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
D

Dravol

XLDnaute Junior
Bonjour à tous,

Je cherche à créer une boucle plutôt que de créer 150 lignes de code. pouvez-vous m'aider ?

If CStr([C148]) <> "" And Intersect(ActiveCell, [D148]) Is Nothing Then _
If CStr([D148]) = "" Then [D148].Select: MsgBox "Renseignez le problème ex : HS, perdu..."
End Sub

Si je continue dans ma logique (sans boucle), je vais avoir ce même code répété jusqu'à la ligne 287.

If CStr([C149]) <> "" And Intersect(ActiveCell, [D149]) Is Nothing Then _
If CStr([D149]) = "" Then [D149].Select: MsgBox "Renseignez le problème ex : HS, perdu..."
End Sub

If CStr([C150]) <> "" And Intersect(ActiveCell, [D150]) Is Nothing Then _
If CStr([D150]) = "" Then [D150].Select: MsgBox "Renseignez le problème ex : HS, perdu..."
End Sub

etc etc...

pouvez-vous me donner la ligne de code pour une boucle de la ligne 148 à à 287 ?

Merci d'avance 🙂

Drav
 
Trier par date Trier par votes
bonjour,

Euh.... Au bas de cette page, dans discussion similaires il y a des réponses à ce genre de demande dont celle de cette discussion (résolue) d'un certain @Dravol :

Faut pas exagérer quand même !
 
Vote positif 0 Vote négatif
Bonjour Drav, Hasco,

je propose ce code VBA (non testé ; si besoin, à adapter) :

VB: 
Option Explicit

Sub Essai()
  Dim lig&
  For lig = 148 To 287
    With Cells(lig, 3)
      If CStr(.Value) <> "" And _
          ActiveCell.Address(0, 0) <> "D" & lig Then
        If CStr(.Offset(, 1)) = "" Then
          Application.Goto .Offset(, 1), True
          MsgBox "Renseignez le problème ex : HS, perdu..."
        End If
      End If
    End With
  Next lig
End Sub

l'ennui, c'est qu'en pratique, après le message de la MsgBox, il faudrait « redonner la main » à l'utilisateur pour qu'il puisse faire une saisie dans la cellule où il manque un renseignement ; mais y'a un gros hic : pour ça, il faudrait sortir de la sub ! et si on quitte la sub, on ne peut plus continuer la boucle ! c'est dans le genre du « serpent qui se mord la queue » ! il faudrait essayer de trouver une autre méthode qui soit plus adaptée à ce que tu veux faire ; mais peut-être que si on fait la saisie dans la boucle via un InputBox, ça pourrait marcher ? à toi de voir, et bonne chance ! 🍀​

soan
 
Dernière édition:
Vote positif 0 Vote négatif
@Hasco

je viens de suivre le lien que tu as indiqué dans ton post #2 ; c'est effectivement le même genre d'exo, proposé aussi par Dravol, mais ce qui est drôle, c'est que c'est un sujet du 6 janvier 2021 ! 😄 comme c'était y'a plus d'un an, je suppose que Dravol a simplement oublié son ancien exo et la réponse associée qu'il avait obtenu ! 😜​

soan
 
Vote positif 0 Vote négatif
@Deadpool

Deadpool_CC à dit:
😱 alzheimer ? (je rigole)
Cliquez pour agrandir...

non, pas alzeimer, mais n'oublie pas que certains membres du site sont très âgés (par exemple des retraités) ; et avec l'âge, la mémoire s'amenuise... 😢 il y a aussi des personnes étourdies qui oublient facilement des choses ; même si Drav est ni une personne âgée, ni étourdi, ça peut arriver à n'importe qui d'oublier quelque chose ! surtout si c'était y'a un an ! si toi tu as la chance de ne rien oublier, même après un an, alors tu peux te vanter d'avoir une mémoire d'éléphant ! 😄

🐘 pas vrai, Dumbo ? ... oui, Dumbo a confirmé ! il m'a même appris que s'il a une mémoire phénoménale, c'est pour se rappeler du chemin qu'il avait appris quand il n'était alors qu'un petit éléphanteau ! ah ? quel chemin ? celui qui mène (hélas) au cimetière des éléphants ! 😭 les braconniers chasseurs d'ivoire sont priés de passer leur chemin et de ne pas chercher à suivre mon ami Dumbo !​

soan
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour à tous,

En fait je vais vous expliquer.
à l'époque par manque de temp, je n'ai pas voulu laisser le post en attente plusieurs mois et je l'avais validé en solution mais dans les faits je n'arrivais pas à faire fonctionner les différentes solutions proposées 🙁

Désolé pour cette redondance de post et non je n'ai pas Alzheimer 🙂

Drav.

Du coup je mets en dessous l'ensemble de code qui fonctionne mais sans la boucle.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HCoché As Boolean, TV()
If Target.CountLarge = 1 Then
If Not Intersect([H18,J18], Target) Is Nothing Then
HCoché = IsEmpty([J18].Value)
[H18].Value = IIf(HCoché, Empty, ChrW(&H2713))
[J18].Value = IIf(HCoché, ChrW(&H2713), Empty)
ElseIf Not Intersect([B148:C287], Target) Is Nothing Then
TV = Array(Empty, Empty, Empty)
TV(Target.Column - 2) = ChrW(&H2713)
[B:C].Rows(Target.Row).Value = TV
End If
End If

If CStr([C148]) <> "" And Intersect(ActiveCell, [D148]) Is Nothing Then _
If CStr([D148]) = "" Then [D148].Select: MsgBox "Renseignez le problème ex : HS, perdu..."

If CStr([C149]) <> "" And Intersect(ActiveCell, [D149]) Is Nothing Then _
If CStr([D149]) = "" Then [D149].Select: MsgBox "Renseignez le problème ex : HS, perdu..."

If CStr([C150]) <> "" And Intersect(ActiveCell, [D150]) Is Nothing Then _
If CStr([D150]) = "" Then [D150].Select: MsgBox "Renseignez le problème ex : HS, perdu..."

If CStr([C151]) <> "" And Intersect(ActiveCell, [D151]) Is Nothing Then _
If CStr([D151]) = "" Then [D148].Select: MsgBox "Renseignez le problème ex : HS, perdu..."

idem 152
idem153
... jusqu'à 287

Drav
 
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

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
164
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
107
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
240
un internaute
U
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
378
Nicolas JACQUIN
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
503
tnion
T
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
109
patricktoulon
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
252
spike29
S
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
214
safranien
S
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
507
Simon 1234
S
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
199
Lu76Fer
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
311
oguruma
  • Résolu(e)
Microsoft 365 Clic droit en B (Quelle que soit la cellule de cette colonne) : doit créer ou ouvrir une nouvelle note*
2
Réponses
19
Affichages
266
anthoYS
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
558
job75
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
479
CortoXls
C
  • Question Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
481
Jojo973
J
  • Question Question
XL 2021 Créer une fonction qui renvoie le nombre de critères sélectionné dans 1 filtre
Réponses
2
Affichages
271
Johann RSW
J
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
223
vgendron
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
522
job75
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
405
sylvanu
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
767
salma_hayek
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…