Discussion :

[kelly27]

Bonsoir

Je sollicite votre aide pour remplacer les nombreuses formules de mon projet par des codes VBA. N’étant pas trop à l’aise avec les VBA, je vous joins un fichier test.
Les formules ainsi traduites en VBA permettraient de réduire la taille du fichier et de gagner en rapidité de calcul.
Merci de votre aide

[Invité]

Bonjour

Il serait préférable de donner des explications qu'une pièce jointe que beaucoup de membres ne pourront ouvrir.

Philippe

[kelly27]

Bonjour
Désolée , je pensais qu’avec une pièce jointe , mes explications seraient plus simple.
En fait j’ai une base de données état civil professionnel( Nom , Affectation, fonction, statut) que je renseigne par un formulaire.
J’utilise des formule SI et SI(et telles que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(ET(B2="Infirmier";C2="ZONE A");SI(OU(D2="titulaire";D2="stagiaire";D2="Contractuel CDI");1))

pour trier les agents par zone d’affectation.
Je me retrouve avec une formule par ligne et multipliée par le nombre de zone et d’agents , Ca monte vite en milliers.
Je sollicite votre aide pour me faire une ébauche de macros , je pourrais ainsi avoir une piste et continuer le reste.
Merci Beaucoup

[kelly27]

vous en pensez quoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub formules()
 
Dim DernLigne As Long
 
Sheets("BDD").Select
DernLigne = Range("v" & Rows.Count).End(xlUp).Row
Range("V2:BRX2").AutoFill Destination:=Range("V2:BRX2" & DernLigne)
 
End Sub

je dois certainement mal m'y prendre , (vu le nombre de réponses que j'ai). Allez j'insiste quand meme...au seeeeecoouuurs!!!!!!

j'ai tenté ce code ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub formules()
 
Dim DernLigne As Long
 
Sheets("DONNEES").Select
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Range("E2:X2").AutoFill Destination:=Range("E2:X2" & DernLigne)
 
End Sub

Mais il me recopie les formules et au final , j'obtiens la meme chose que si j'avais etiré vers le bas

je pensais aussi à formulalocal .

merci de m'aider chers membres du forum

[Marc-L]

Bonjour, bonjour !

Déjà il faudrait corriger la destination !

Ligne n°7 : Msgbox "E2:X2" & DernLigne permettrait de le constater …

Ensuite il faudrait expliquer ce qu'est censé effectuer le code !

[kelly27]

Bonsoir

En passant par l’enregistreur de macro, je suis parvenue à trouver un début de solution.

Voila le code

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 Formules()
With Worksheets("DONNEES")
 
    Range("E2").FormulaR1C1 = _
        "=IF(AND(RC[-3]=""infirmiére"",RC[-2]=""ZONE A""),IF(OR(RC[-1]=""titulaire"",RC[-1]=""stagiaire"",RC[-1]=""Contractuel CDI""),1,0))"
   Range("E2").FormulaR1C1 = Range("E2").Value
 
  Range("F2").FormulaR1C1 = _
        "=IF(AND(RC[-4]=""Agent de Service hospitalier"",RC[-3]=""ZONE A""),IF(OR(RC[-2]=""titulaire"",RC[-2]=""stagiaire"",RC[-2]=""Contractuel CDI""),1))"
   Range("F2").FormulaR1C1 = Range("F2").Value
 
 
 
   Range("G2").FormulaR1C1 = _
        "=IF(AND(RC[-5]=""Aide-Soignant"",RC[-4]=""ZONE A""),IF(OR(RC[-3]=""titulaire"",RC[-3]=""stagiaire"",RC[-3]=""Contractuel CDI""),1))"
       Range("G2").FormulaR1C1 = Range("G2").Value
       End With
End Sub

Il ne s’applique que sur la première ligne (2)
Comment l’appliquer sur toutes les lignes jusqu'à la dernière non vide ?
Je vous joins un fichier en exemple.

Merci de votre aide