L'indice n'appartient pas à la selection ( boucle while )
Résolu
develySIDE
Messages postés
58
Statut
Membre
-
develySIDE Messages postés 58 Statut Membre -
develySIDE Messages postés 58 Statut Membre -
Bonjour,
voila je souhaiterais faire un parcours de ligne pour une colonne précise, et pour les valeurs de cette colonne, vérifier que la soustraction de la valeur à ma date soit bien inférieur à 6, cependant lors de l’exécution, problème, " l'indice n'appartient pas à la sélection ", or ici je ne copie pas de fichier (comme sur la plupart des topics avec cette erreur), je fait juste un test étant en train de m’initier à ce langage, pourriez vous m'aider ?
Merci d'avance
voila je souhaiterais faire un parcours de ligne pour une colonne précise, et pour les valeurs de cette colonne, vérifier que la soustraction de la valeur à ma date soit bien inférieur à 6, cependant lors de l’exécution, problème, " l'indice n'appartient pas à la sélection ", or ici je ne copie pas de fichier (comme sur la plupart des topics avec cette erreur), je fait juste un test étant en train de m’initier à ce langage, pourriez vous m'aider ?
Private Sub BoutonLien_Click()
Dim anneedate As Integer
anneedate = Year(Now())
Dim i As Integer
i = 4
While Workbooks("peri.xlsx").Sheet("Statistique_CAF_1").Range("B" & i) <> ""
If (anneedate - Range("B" & i).Value) <= 6 Then
ThisWorkbooks.Sheets("Arrivee").Range("A" & i).Value = anneedate - Range("B" & i).Value
End If
i = i+1
Wend
End Sub
Merci d'avance
A voir également:
- L'indice n'appartient pas à la selection ( boucle while )
- Indice téléphonique - Guide
- A qui appartient ce numéro - Guide
- Google n'a pas pu vérifier que ce compte vous appartient. - Forum Gmail
- Bash do while ✓ - Forum Shell
- Mon pc s'allume et s'éteint en boucle - Forum Matériel & Système
4 réponses
Bonjour develySide, bonjour le forum,
Tu ne redéfinis pas la variable i qui reste initialisée à 4! Donc tu boucles à l'infini (ou pas du tout d'ailleurs)...
Mais le message que tu as, semblerait indiquer une erreur dans un des noms des fichiers ou des onglets. Vérifie (espace avant ou après, accent, etc)...
Tu ne redéfinis pas la variable i qui reste initialisée à 4! Donc tu boucles à l'infini (ou pas du tout d'ailleurs)...
Mais le message que tu as, semblerait indiquer une erreur dans un des noms des fichiers ou des onglets. Vérifie (espace avant ou après, accent, etc)...
en réalité si, je continu de définir i, seulement lors du copier coller en effaçant les commentaires la ligne à été supprimé avec, navré
Bonjour
Essayes avec ça
Essayes avec ça
Private Sub BoutonLien_Click()
Dim anneedate As Integer
anneedate = Year(Now())
Dim i As Integer
i = 4
With Workbooks("peri.xlsx").Sheet("Statistique_CAF_1")
While .Range("B" & i) <> ""
If (anneedate - .Range("B" & i).Value) <= 6 Then
ThisWorkbooks.Sheets("Arrivee").Range("A" & i).Value = anneedate - .Range("B" & i).Value
End If
i = i + 1
Wend
End With
End Sub