Discussion :

[NeverKevin]

Bonjour,

J'ai un soucis au niveau de ma récupération de cellule. Je souhaite récupérer l'entier contenu par une cellule afin de comparer cet entier à une variable pour faire fonctionner ma boucle, cependant j'ai une erreur d'incompatibilité lorsque je compare ces deux valeurs !

Voici la petite partie de code :

Code :

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

1
2
3
4
5
6
7
8
 
    Duree = Range("D2:E2").Value
    i = 0
 
    While i < Duree
    (Code à exécuter dans la boucle)
    i = i + 1
    Wend

J'ai cherché sur plusieurs post, sans succès

Merci de votre aide !

[defluc]

Code :

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

1
2
3
4
5
6
7
8
9
Dim Cel As Range
Dim i As Integer
  i = 0
  For Each Cel In Range("D2:E2")
    If i < Cel.Value Then
       '(Code à exécuter dans la boucle)
      i = i + 1
    End If
  Next

[electrons]

Bonjour,

Une autre solution est d'enlever la fusion des cellules D2:E2 avec le code :

Code :

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

1
2
3
4
5
6
7
8
 
Range("D2:E2").select
 
With Selection
  .MergeCells = FALSE
End With
 
Duree = Range("D2").Value

Après la boucle, exécuter le même code avec True à la place de False.

Bonne journée.

[NeverKevin]

Merci ! J'ai retiré la fusion de cellule le temps de la récupération afin de garder mon While et ainsi juste rajouter une ligne de code.

Cordialement.

[defluc]

Pour des tas de raisons ressassées dans ce forum, l'utilisation de Select est à éviter.

[electrons]

Si ça marche, c'est bien mais il ne faut pas oublier de cliquer sur

A plus