IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

MFC dans cellule


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 11
    Par défaut MFC dans cellule
    bonjour le forum

    j'ai une petite question pour mon application

    voila dans cellule F22 jais mit une mise en forme conditionnel couleur suivant le texte saisie ma question suivant je voudrait effacer les cellules g22 a v 22
    si je rentre du texte dans la cellule F22

    comment procedez sachant que je rentre les saisis par userform et est il possible autogenerer le userform sans le fermer

    merci de votre aide et en esperant que je suis assez explisite vus ma noviciter

    Merci MacMac @+

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    pour mettre a blanc les cellules de G22 a V22 tant que F22 est rempli

    code a mettre dans l'evenement Change de la feuille

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$22" Then
     
        Range("G22:V22").Clear
     
    End If
     
    End Sub

  3. #3
    Membre habitué
    Profil pro
    Inscrit en
    Mars 2007
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2007
    Messages : 11
    Par défaut
    merci de ta reponse Jfontaine

    bon je vient essayer le code mais cela ne fonctionne pas pourquoi aucunne idee

    je vient de retrouver un code qu'on m'avais fait qui je croit de faire l'identique mais qui ne fonctionne pas peut tu y jeter un oeil de pro pour me dire la raison de ou cela peut venir le code et placer dans la feuille ou il y devrai avoir les donner

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Column = 6 And Target.Row > 60 And Target.Row < 79 Then
      If Target.Value <> "" Then
        Range("G" & Target.Row & ":R" & Target.Row).ClearContents
        Range("G" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 15
      Else
        Range("G" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 2
       End If
     End If
    End Sub
    merci de me dire a quoi sert se code merci

Discussions similaires

  1. [D7][DBGrid] Texte dans cellule particulière
    Par moulette85 dans le forum Bases de données
    Réponses: 3
    Dernier message: 28/04/2005, 17h49
  2. Création liste dans cellules Excel en VBA
    Par yazoo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 21/04/2005, 14h46
  3. Réponses: 15
    Dernier message: 22/03/2005, 14h45
  4. Export vers Excel et saut de ligne dans cellule
    Par sbeu dans le forum API, COM et SDKs
    Réponses: 4
    Dernier message: 16/08/2004, 15h53
  5. [D7-EXCEL2000] Formule dans cellule Excel qui ne se calcule pas
    Par Albertolino dans le forum API, COM et SDKs
    Réponses: 3
    Dernier message: 09/09/2003, 14h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo