G
G'Claire
Guest
Salut le forum
Voila, j'ai un code qui me permet de purger une base de donnée, mais j'aurai voulu l'utiliser pour purger plusieurs base de données en même temps, et cela me donne une erreur d'éxecution et en commentaire propriété ou méthode non gérer par cet objet, voici ce code modifié.
Private Sub CommandButton9_Click()
Dim WA As Worksheet, RG As Range
If MsgBox("Voulez-vous mettre les bases de données a zéro ?", vbYesNo, "CONFIRMATION") = vbYes Then
Set WA = ActiveSheet
Application.ScreenUpdating = False
With Sheets("Tool_grou") And ("Tool_Dir") And ("Tool_prof") And ("Tool_grou")
.Activate
Set RG = .Range(Cells(2, 1).Address, Cells(100, 4).Address)
If WorksheetFunction.CountA(RG) = 0 Then
MsgBox "personne sur la plage"
Else
RG.ClearContents
End If
End With
WA.Activate
Set WA = Nothing
Set RG = Nothing
End If
End Sub
La partie en jaune est ce bout de code.
With Sheets("Tool_grou") And ("Tool_Dir") And ("Tool_prof") And ("Tool_grou")
Je me douté que cela ne serai pas aussi simple pour appliquer ce code, pour purger en même temps ces base de données.
Je vous remercie de pouvoir m'éclairer, G'Claire et bon long Week-End
Voila, j'ai un code qui me permet de purger une base de donnée, mais j'aurai voulu l'utiliser pour purger plusieurs base de données en même temps, et cela me donne une erreur d'éxecution et en commentaire propriété ou méthode non gérer par cet objet, voici ce code modifié.
Private Sub CommandButton9_Click()
Dim WA As Worksheet, RG As Range
If MsgBox("Voulez-vous mettre les bases de données a zéro ?", vbYesNo, "CONFIRMATION") = vbYes Then
Set WA = ActiveSheet
Application.ScreenUpdating = False
With Sheets("Tool_grou") And ("Tool_Dir") And ("Tool_prof") And ("Tool_grou")
.Activate
Set RG = .Range(Cells(2, 1).Address, Cells(100, 4).Address)
If WorksheetFunction.CountA(RG) = 0 Then
MsgBox "personne sur la plage"
Else
RG.ClearContents
End If
End With
WA.Activate
Set WA = Nothing
Set RG = Nothing
End If
End Sub
La partie en jaune est ce bout de code.
With Sheets("Tool_grou") And ("Tool_Dir") And ("Tool_prof") And ("Tool_grou")
Je me douté que cela ne serai pas aussi simple pour appliquer ce code, pour purger en même temps ces base de données.
Je vous remercie de pouvoir m'éclairer, G'Claire et bon long Week-End