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

utilisation de FOR TO GOTO

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

natorp

XLDnaute Barbatruc
re-bjr à tous et toutes
vu que je ne peux pas récupérer les codes de fichiers-joints je vous joins le code qui me pose problème actuellement :

Private Sub OK_Click()

Dim Lign As Byte

For DateClicked = "01/01/2009" To "31/01/2009"
GoTo step1

For DateClicked = "01/02/2009" To "28/02/2009"
GoTo step2

step1:
Sheets("Janvier").Activate
Lign = Sheets("Janvier").Range("b1000").End(xlUp).Row + 1

If (Sheets("Janvier").Cells(Lign, 10).Value = "x" And CheckBox1.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox1.Value = True Then Sheets("Janvier").Cells(Lign, 10).Value = "x"

If (Sheets("Janvier").Cells(Lign + 1, 10).Value = "x" And CheckBox2.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox2.Value = True Then Sheets("Janvier").Cells(Lign + 1, 10).Value = "x"

step2:
Sheets("Février").Activate
Lign = Sheets("Février").Range("b1000").End(xlUp).Row + 1

If (Sheets("Février").Cells(Lign, 10).Value = "x" And CheckBox1.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox1.Value = True Then Sheets("Février").Cells(Lign, 10).Value = "x"

If (Sheets("Février").Cells(Lign + 1, 10).Value = "x" And CheckBox2.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox2.Value = True Then Sheets("Février").Cells(Lign + 1, 10).Value = "x"

etc...

j'ai le message d'erreur suivant : "variable de contrôle For déjà utilisée" positionnée sur la deuxième ligne FOR

merci de votre aide
Gérard
 
Trier par date Trier par votes
Re : utilisation de FOR TO GOTO

Bonsoir Natorp,

Dans ce cas, tu peux utiliser Select case:

Code: 
Select Case DateClicked
Case "01/01/2009" To "31/01/2009"
Sheets("Janvier").Activate
Lign = Sheets("Janvier").Range("b1000").End(xlUp).Row + 1
If (Sheets("Janvier").Cells(Lign, 10).Value = "x" And CheckBox1.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox1.Value = True Then Sheets("Janvier").Cells(Lign, 10).Value = "x"
If (Sheets("Janvier").Cells(Lign + 1, 10).Value = "x" And CheckBox2.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox2.Value = True Then Sheets("Janvier").Cells(Lign + 1, 10).Value = "x"
Case "01/02/2009" To "28/02/2009"
Sheets("Février").Activate
Lign = Sheets("Février").Range("b1000").End(xlUp).Row + 1
If (Sheets("Février").Cells(Lign, 10).Value = "x" And CheckBox1.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox1.Value = True Then Sheets("Février").Cells(Lign, 10).Value = "x"
If (Sheets("Février").Cells(Lign + 1, 10).Value = "x" And CheckBox2.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox2.Value = True Then Sheets("Février").Cells(Lign + 1, 10).Value = "x"
Case Else
End Select

Mais le code suivant est plus simple et évite de répéter les lignes:

Code: 
NomF = Format(Dateclicked.Value, "mmmm")
Sheets("NomF").Activate
Lign = Sheets("NomF").Range("b1000").End(xlUp).Row + 1
If (Sheets("NomF").Cells(Lign, 10).Value = "x" And CheckBox1.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox1.Value = True Then Sheets("NomF").Cells(Lign, 10).Value = "x"
If (Sheets("NomF").Cells(Lign + 1, 10).Value = "x" And CheckBox2.Value = True) Then Resp = MsgBox("Attention : horaire déjà utilisé!", vbExclamation + vbOKOnly): Exit Sub
If CheckBox2.Value = True Then Sheets("NomF").Cells(Lign + 1, 10).Value = "x"

@+

Gael
 
Dernière édition:
Vote positif 0 Vote négatif
Re : utilisation de FOR TO GOTO

Bonjour le fil, Gael, natorp

Ce qu'écrit Gael est très juste.

Par ailleurs, j'attire ton attention sur le fait suivant:
Code: 
For [COLOR=Red][B]DateClicked [/B][/COLOR]= "01/01/2009" To "31/01/2009"
    ...
    For [COLOR=Red][B]DateClicked [/B][/COLOR]= "01/02/2009" To "28/02/2009"
Les 2 Variables "en rouge" doivent-être différentes, ex : DateClicked1 et DateClicked2, serait correct.

A plus
 
Vote positif 0 Vote négatif
Re : utilisation de FOR TO GOTO

merci, mais de toute façon ça bloque tjrs avant sur l'objet requis
j'arrive pas à envoyer de fichier zippé
sorry, merci de chercher, moi je rentre chez moi et je poste le fichier
Sympa
 
Vote positif 0 Vote négatif
Re : utilisation de FOR TO GOTO

suite...
en fait ça ne demande plus objet requis si l'on enlève le .value après dateclicked
par contre j'ai le message d'erreur : "l'indice n'appartient pas à la sélection" sur la ligne
Sheets("NomF").Activate, même si j'enlève les "

merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : utilisation de FOR TO GOTO

Re,

Voir ma réponse dans ton autre Fil pour le fichier exemple.

Pour l'objet, c'est normal car NomF ne contient rien et Excel ne peut pas ouvrir de feuille.

NomF ne contient rien parceque le calendrier te renvoie la valeur Monthview1 et pas Dateclicked. le code correct est:

Code: 
NomF = Format(MonthView1.Value, "mmmm")
Sheets(NomF).Activate

@+

Gael
 
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

C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
437
patricktoulon
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
3 K
NONO14
N
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
926
AtTheOne
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
980
Excellearning
E
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
525
Latias
L
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
500
eric72
E
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
655
JJ69
J
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
1 K
Staple1600
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
780
loreak
L
P
  • Question Question
XL 2019 VBA moteur de recherche
2
Réponses
21
Affichages
2 K
philgood54000
P
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
927
Mody200
M
  • Résolu(e)
Microsoft 365 VBA : Calculer la date de fin de trimestre
2 3
Réponses
30
Affichages
3 K
eCHO
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…