XL 2019 l'indice n'appartient pas à la sélection

[farid]

Bonsoirs à vous tous,
j'ai un petit souci avec cette macro.
Je m'explique, cette macro fonctionne vraiment si je laisse les lignes "'Unload UserForm1" et "'UserForm1.Show" fonctionnelle.
Cependant, lorsque je désactive ces 2 lignes à partir d'un bouton sur un userform , j'ai un souci sur la ligne Sheets(CStr(Cells(19 + i, 1))).Delete.
Est-ce possible que la macro puisse fonctionner sans ces deux lignes "'Unload UserForm1" et "'UserForm1.Show" sur un sheets qui se nomme "Résultat".



Private Sub CommandButton2_Click()
'Unload UserForm1
Application.DisplayAlerts = False
For i = 1 To 12
If Cells(19 + i, 4) = "a" And Not Me.Controls("CheckBox" & i) Then
' On Error Resume Next
Sheets(CStr(Cells(19 + i, 1))).Delete
' On Error GoTo 0
Cells(19 + i, 1).ClearContents
Cells(19 + i, 4).ClearContents
Cells(19 + i, 7).ClearContents
End If
Next
Application.DisplayAlerts = False
UserForm_initialize
'UserForm1.Show
End Sub

par avance , merci

 

[Eric KERGRESSE]

Bonjour,

Vous ne pouvez pas fermer votre userform si vous utilisez un de ses contrôles (CheckBox) dans le code :

If Cells(19 + i, 4) = "a" And Not Me.Controls("CheckBox" & i) Then

Pour vous affranchir du userform, il vous faut mémoriser dans une matrice, via une boucle, les valeurs I pour lesquelles le code doit supprimer l'onglet.

 

[ChTi160]

Bonjour le Fil
Pas de Fichier avec exemples et explications ?
peut-être aussi un Problème du Mode d'affichage du Userform (Modal ou Non)
Bonne Journée
Jean marie

 

[job75]

Bonjour le forum,

Est-ce possible que la macro puisse fonctionner sans ces deux lignes "'Unload UserForm1" et "'UserForm1.Show"

J'ai testé et il n'y a pas de problème quel que soit le mode d'ouverture de l'UserForm.

Bien sur il faut que Cells(19 + i, 1) ne soit pas vide et que la feuille portant ce nom existe.

Que fait la macro UserForm_Initialize ?

A+

 

[ChTi160]

Re
Voir aussi s'il n'y a pas d'espaces parasites (mettre Trim(Cells(19 + i, 1)) "non testé " à voir Lol
Jean marie

 

[job75]

Voir aussi s'il n'y a pas d'espaces parasites

C'est très possible en effet, ce peut être dans la cellule ou dans l'onglet.

 

[job75]

Bonsoir laurent950,

Le post 1 est pourtant clair : c'est Sheets(CStr(Cells(19 + i, 1))).Delete qui crée le bug...

Donc les CheckBox n'ont rien à voir.

A+

 

[patricktoulon]

Bonsoir @farid
c'est Quoi ce code?

Private Sub CommandButton2_Click()
'Unload UserForm1
Application.DisplayAlerts = False
For i = 1 To 12
If Cells(19 + i, 4) = "a" And Not Me.Controls("CheckBox" & i) Then
' On Error Resume Next
Sheets(CStr(Cells(19 + i, 1))).Delete
' On Error GoTo 0
Cells(19 + i, 1).ClearContents
Cells(19 + i, 4).ClearContents
Cells(19 + i, 7).ClearContents
End If
Next
Application.DisplayAlerts = False
UserForm_initialize
'UserForm1.Show
End Sub

1° on ne unload pas avant le reste du code sinon il ne s'execute pas sur certaines version d'ecel , ou génère une erreur d'indice

2° certaines version d'excels (va savoir pour quoi) n’aiment pas l'implicite il faut tester le .value du checkbox explicitement

3° rappeler le initialise est digne d'un débutant
on place le code dans une sub et on l'appelle du initialise et du bouton

bref je suppute que tu veuille réinitialiser ton userform et tes controls vidés sans fermer le userform
c'est bien ca ?

4°et pour finir tu supprime tes feuille dans une boucle croissant
la bonne blague dès le premier délétéet en plus les cellule effacées 😉 🤣


la règle d'or massif 18 cara quand on supprime ou vide des cellules on le fait a reculons

 

[farid]

bonjour Patrick
en réponse à ta question "
bref je suppute que tu veuille réinitialiser ton userform et tes controls vidés sans fermer le userform
c'est bien ca ?"" c'est bien cela .
merci de ton implication
bonne journée a toi

 

[job75]

Bonjour le forum,

la règle d'or massif 18 cara quand on supprime ou vide des cellules on le fait a reculons

Des cellules sans doute mais pas forcément pour des feuilles :

Sub Spprimer()
Dim sh As Object
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Name Like "A*" Then sh.Delete
Next
End Sub

A+