Ecrire dans une cellule avec VBA
Résolu
Bonjour,
j'ai un petit problème mais je n'arrive pas à comprendre mon erreur. J'ai un fichier Excel avec 40 pages au départ. Le fichier est fait en sorte que la numérotation des pages est : x de 40. La ligne de code en caractère gras supprime la page 40 si j'en ai pas de besoin. Ce que je voudrais faire c'est aller dans la sheets "Input" et changer la valeur du nombre de pages de 40 à 39 (car je viens d'en supprimer une) à la cellule (3, 61).
J'ai fouiller sur plusieurs forums mais je ne trouve toujours pas mon erreur. Pouvez vous m'aider svp :)
'Delete the last checklist page if it's empty
Windows("Test.xls").Activate
Sheets("Page40").Select
Cells(17, 22).Activate
If IsEmpty(ActiveCell) Then
ActiveWindow.SelectedSheets.Delete
Sheets("Input").Select
Cells(3, 61).Select
Selection.Value = 39
End If
Merci beaucoup!
j'ai un petit problème mais je n'arrive pas à comprendre mon erreur. J'ai un fichier Excel avec 40 pages au départ. Le fichier est fait en sorte que la numérotation des pages est : x de 40. La ligne de code en caractère gras supprime la page 40 si j'en ai pas de besoin. Ce que je voudrais faire c'est aller dans la sheets "Input" et changer la valeur du nombre de pages de 40 à 39 (car je viens d'en supprimer une) à la cellule (3, 61).
J'ai fouiller sur plusieurs forums mais je ne trouve toujours pas mon erreur. Pouvez vous m'aider svp :)
'Delete the last checklist page if it's empty
Windows("Test.xls").Activate
Sheets("Page40").Select
Cells(17, 22).Activate
If IsEmpty(ActiveCell) Then
ActiveWindow.SelectedSheets.Delete
Sheets("Input").Select
Cells(3, 61).Select
Selection.Value = 39
End If
Merci beaucoup!
2 réponses
-
Bonjour ccm81,
merci de ton commenrtaire, cela fonctionne parfaitement! -
bonjour
peut etre quelque chose comme çaPrivate Sub CommandButton1_Click() Application.DisplayAlerts = False If Sheets("Feuil6").Range("A2").Value = "" Then Sheets("feuil6").Delete End If Sheets("Feuil1").Range("A1").Value = Sheets.Count Application.DisplayAlerts = True End Sub
bonne suite
