Macro à corriger

Résolu
Zeni -  
 Zeni -
Bonjour tous,

Dans mon fichier excel j'ai un bouton qui, lorsque je l'active, met en marche deux macros intitulées "Recapitulatif" et "Juste". J'essaie de mettre une étape intermédiaire. Avant qu'il puisse activer ces deux macros, je souhaiterais que le champs C3 de l'onglet "Base" soit activé. Seulement voilà je n'y arrive pas. Est-ce que quelqu'un peut m'aider. Ma macro ci-dessous:

Option Explicit
Sub lancer()
If Sheets("Base").Range("C3").Value = "" Then
MsgBox ("Aucune section n'a été sélectionnée" & Chr(13) & Chr(10) & "Veuillez réessayer")
Else
Recapitulatif
Juste
End If
End Sub


Merci d'avance.

Configuration: Windows / Edge 98.0.1108.62

2 réponses

  1. ThauTheme Messages postés 1564 Statut Membre 160
     
    Bonjour le fil, bonjour le forum,

    Comme le précise yg_be, sans fichier qui va bien, on n'a pas tout le contexte... Peut-être comme ça :
    Sub lancer()
    Dim OB As Worksheet
    Dim C As Range

    Set OB = Worksheets("Base")
    Set C = OB.Range("C3")
    If C.Value = "" Then
    MsgBox ("Aucune section n'a été sélectionnée" & Chr(13) & Chr(10) & "Veuillez réessayer")
    OB.Activate
    C.Select
    Else
    Call Recapitulatif
    Call Juste
    End If
    End Sub

    1
    1. Zeni
       
      Superbe, merci beaucoup :-D ça fonctionne ;-)
      0
  2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour,
    tu emploies "activer" dans trois sens différents.
    que veux-tu dire précisément par "le champs C3 de l'onglet "Base" soit activé"?

    ton code fonctionne-til? as-tu un message d'erreur?
    0
    1. Zeni
       
      La cellule C3 ne doit pas être vide car la personne doit insérer son nom. :-) je n'ai pas mon portable sur moi mais oui un message d'erreur apparaît. Je le mettrai dès que je rentre.
      0