Ecrire dans une cellule avec VBA Résolu/Fermé

Question

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!

Configuration: Windows XP / Safari 534.13

ccm81 · Answer

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

hugohonda · Answer

Bonjour ccm81, 
merci de ton commenrtaire, cela fonctionne parfaitement!

Ecrire dans une cellule avec VBA

2 réponses

Discussions similaires