Ecrire dans une cellule avec VBA

Résolu/Fermé

hugohonda Messages postés 6 Date d'inscription jeudi 10 février 2011 Statut Membre Dernière intervention 3 mars 2011 - 2 mars 2011 à 22:41
hugohonda Messages postés 6 Date d'inscription jeudi 10 février 2011 Statut Membre Dernière intervention 3 mars 2011 - 3 mars 2011 à 14:34

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!

A voir également:

Ecrire dans une cellule avec VBA
Aller à la ligne dans une cellule excel - Guide
Ecrire en gras sur whatsapp - Guide
Excel compter cellule couleur sans vba - Guide
Ecrire en miroir - Guide
Verrouiller cellule excel - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
3 mars 2011 à 09:57

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

Réponse 2 / 2

hugohonda Messages postés 6 Date d'inscription jeudi 10 février 2011 Statut Membre Dernière intervention 3 mars 2011
3 mars 2011 à 14:34

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

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

VBA : Range avec références variables..

Excel si cellule contient texte alors...

ouverture d'un fichier excel à partir d'un code VBA

Excel : colorer une cellule sous condition d'une autre ?

Discussions similaires

Newsletters