Ecrire dans une cellule avec VBA

Résolu
hugohonda Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
hugohonda Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
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!

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
bonjour

peut etre quelque chose comme ça 
Private 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
0
Réponse 2 / 2
hugohonda Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour ccm81,
merci de ton commenrtaire, cela fonctionne parfaitement!
0