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 :

Macro pour selection cellule puis formule [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Octobre 2009
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 21
    Par défaut Macro pour selection cellule puis formule
    Bonjour à tous,

    Voila je fais appel à vos connaissances car les miennes étant assez limité sous excel, je bloque...

    Je dois faire un projet qui me permet, en appuyant sur un bouton, de generer un texte en fonction d'un formule.

    La formule je l'ai, simplement je ne sais pas comment faire la macro pour que la formule s'applique à toutes les cases vide de la colone C si et uniquement si la colone A est rempli.

    Voici mon exemple :




    Dans cet exemple donc, je souhaite, lorsque je clique sur le bouton generer, que la colonne C se remplisse selon ma formule que je possede, et seulement les cellules vide de la colonne C et seulement egalement si la colone A est remplie (donc ici remplir les colonnes C2, C4 et C5).

    J'espere que mon explication est compréhensible pour vous, en tout cas un ptit coup pouce de votre part serai super apprécié :p

    Merci pour vos reponses,

    A+

  2. #2
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut heu!...
    bonjour

    un exemple basé sur ce que tu demande
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Sub verifierl()
     For i = 2 To Sheets("feuil1").Range("A65536").End(xlUp).Row'trouve la derniere ligne de la colonne" A" en partant d'en bas 
    If Sheets("feuil1").Cells(i, 1).Value <> "" Then  'si A n'est pas vide alors
    Sheets("feuil1").Cells(i, 3).Value = "deja rempli" ' ou ta formule
    End If'fin de condition 
    Next' fin de boucle
    End Sub

    au plaisir
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  3. #3
    Membre averti
    Inscrit en
    Octobre 2009
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 21
    Par défaut
    Bonjour PatrickToulon,

    Un grand merci pour ton aide, c'est super

    Par contre, lorsque je souhaite integrer ma formule, j'au un bug :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub Generer_Login()
     
     
     
    For i = 2 To Sheets("Modele_Formulaire_Users_Client").Range("A65536").End(xlUp).Row 'trouve la derniere ligne de la colonne" A" en partant d'en bas
    If Sheets("Modele_Formulaire_Users_Client").Cells(i, 1).Value <> "" Then  'si A n'est pas vide alors
    Sheets("Modele_Formulaire_Users_Client").Cells(i, 3).Value = MINUSCULE(GAUCHE(B2)&SI(ESTERREUR(TROUVE(" ";SUBSTITUE(B2;"-";" ")));"";STXT(B2;TROUVE(" ";SUBSTITUE(B2;"-";" "))+1;1))&SUBSTITUE(SUBSTITUE(A2;" ";"");"-";"")) ' ou ta formule
    End If 'fin de condition
    Next ' fin de boucle
     
    End Sub
    Je doit surement faire une erreur de syntaxe (et vu comment je suis doué sur excel...)

    En tout cas encore merci pour ta reponse

  4. #4
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    rebonjour


    l'erreur que tu a faite est d'ecrire la formule comme si tu l'ecrivais dans la cellule il faut la metre entre guillemet et en doubler certains car le guillemet et tres difficile a gerer en vba la moindre erreur et boum la ligne est rouge



    MAIS c'est SANS CONVICTION CAR JE L'AI ESSAYER MOI MEME DIRECTEMENT SUR UNE CELULE ET IL Y A UNE ERREUR a la base en moins qu'il y est des donné qui ne sont pas dans l'exemple que tu a poster

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
     
    Sub Generer_Login()
     
     
     
    For i = 2 To Sheets("Modele_Formulaire_Users_Client").Range("A65536").End(xlUp).Row 'trouve la derniere ligne de la colonne" A" en partant d'en bas
    If Sheets("Modele_Formulaire_Users_Client").Cells(i, 1).Value <> "" Then  'si A n'est pas vide alors
    Sheets("Modele_Formulaire_Users_Client").Cells(i, 3).Value Sub Generer_Login()
     
    For i = 2 To Sheets(1).Range("A65536").End(xlUp).Row 'trouve la derniere ligne de la colonne" A" en partant d'en bas
    If Sheets(1).Cells(i, 1).Value <> "" Then  'si A n'est pas vide alors
    Sheets(1).Cells(i, 3).Value = " chr(34) MINUSCULE(GAUCHE(B2)&SI(ESTERREUR(TROUVE(& chr(34) & chr(34);SUBSTITUE(B2;& chr(34)-& chr(34);& chr(34) & chr(34))));& chr(34)& chr(34);STXT(B2;TROUVE(& chr(34) & chr(34);SUBSTITUE(B2;& chr(34)-& chr(34);& chr(34) & chr(34)))+1;1))&SUBSTITUE(SUBSTITUE(A2;& chr(34) & chr(34);& chr(34)& chr(34));& chr(34)-& chr(34);& chr(34)& chr(34)))"' ou ta formule
    End If 'fin de condition
    Next ' fin de boucle
     
    End Sub
     
    End If 'fin de condition
    Next ' fin de boucle
     
    End Sub


    au plaisir
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #5
    Membre averti
    Inscrit en
    Octobre 2009
    Messages
    21
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 21
    Par défaut
    Merci pour ta réponse,

    Grace à toi et un peu de bidouille, j'y suis enfin arrivé

    Voici mon code, ca peut servir :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Sub Generer_Login()
     
     
     
    For i = 2 To ActiveSheet.Range("A65536").End(xlUp).Row 'trouve la derniere ligne de la colonne" A" en partant d'en bas
    If ActiveSheet.Cells(i, 1).Value <> "" Then  'si A n'est pas vide alors
    ActiveSheet.Cells(i, 1).Select
        ActiveCell.Offset(0, 4).Value = _
            "=LOWER(LEFT(RC[-3])&IF(ISERROR(FIND("" "",SUBSTITUTE(RC[-3],""-"","" ""))),"""",MID(RC[-3],FIND("" "",SUBSTITUTE(RC[-3],""-"","" ""))+1,1))&SUBSTITUTE(SUBSTITUTE(RC[-4],"" "",""""),""-"",""""))"
     
    End If 'fin de condition
    Next ' fin de boucle
     Columns("E:E").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
    End Sub

    Encore mille merci pour ton aide l'ami

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Modification macro pour selection d'une plage de données
    Par bedoch dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 30/03/2010, 07h34
  2. macro pour un objet puis passage dans fonction
    Par jbarreau-mainson dans le forum C
    Réponses: 9
    Dernier message: 28/05/2009, 16h19
  3. Macro pour fusionner cellules excel
    Par derech dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 29/10/2007, 10h04
  4. [VBA-E]Macro pour positionnement cellule
    Par Micky58 dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 25/04/2007, 11h54
  5. [VBA-E] Macro pour copier cellules
    Par jfamiens dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 07/06/2006, 20h02

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