Macro pour selection cellule puis formule

Version imprimable

17/09/2010, 13h42
Tonton_glenn

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 :

http://img10.hostingpics.net/pics/525867excel1.jpg

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+

heu!...

bonjour

un exemple basé sur ce que tu demande

Code:

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

Bonjour PatrickToulon,

Un grand merci pour ton aide, c'est super :ccool:

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

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

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:

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

Merci pour ta réponse,

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

Voici mon code, ca peut servir :

Code:

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 8-)

Simplifie entre autre

Code:

1
2
3
4
5
6
7
8
9
Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Value <> "" Then
        With Cells(i, 5)
            .FormulaR1C1 = "=LOWER(LEFT(RC[-3])&IF(ISERROR(FIND("" "",SUBSTITUTE(RC[-3],""-"","" ""))),"""",MID(RC[-3],FIND("" "",SUBSTITUTE(RC[-3],""-"","" ""))+1,1))&SUBSTITUTE(SUBSTITUTE(RC[-4],"" "",""""),""-"",""""))"
            .Value = .Value
        End With
    End If
Next i