Discussion :

[had4789]

Bonjour à tous,

Voici mon problème du jour. J'ai le code suivant qui s'applique pour les cellules F2:F18. Je voudrais que ce code s'applique tant que la cellule A correspondant à la cellule F n'est pas vide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CréerCase()
Sheets("Feuil1").Select
'A revoir
Dim Cellule As Range
For Each Cellule In Range("F2:F18")
With Cellule
.Select
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
End With
With Selection
    .Characters.Text = ""
  End With
Next Cellule

J'ai essayé le code suivant, mais je n'arrive pas à placer mon End while:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CréerCase()
Sheets("Feuil1").Select
'A revoir
Dim Cellule As Range
While .Range("A:A")<>""
For Each Cellule In Range("F2:F18")
With Cellule
.Select
ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height).Select
End With
With Selection
    .Characters.Text = ""
  End With
Next Cellule

J'espère être clair.

Merci par avance pour vos réponse

[SfJ5Rpw8]

bonjour,

tiens voilà j'en ai profité pour enlever ces select , selection, activeSheet inutiles et sources d'erreurs...

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
Option Explicit
 
Sub CréerCase()
Dim sh As Worksheet
Dim Cellule As Range
Dim chk As CheckBox
 
Set sh = ThisWorkbook.Sheets("Feuil1")
 
For Each Cellule In sh.Range("F2:F18")
  With Cellule
    If .EntireRow.Cells(1, 1) <> "" Then
    Set chk = sh.CheckBoxes.Add(.Left, .Top, .Width, .Height)
    chk.Characters.Text = ""
    End If
  End With
Next Cellule
End Sub