Discussion :

[Tonton_glenn]

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+

[patricktoulon]

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

[Tonton_glenn]

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

[patricktoulon]

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

[Tonton_glenn]

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