Conditions If... Résolu

Question

Bonjour à tous 

Je me fais des noeuds au cerveau en essayant de réadapter la formule macro ci-dessous. 
En fait j'aimerai poser des conditions "if" pour l'importation d'une base de données. 
-Si la plage "MALQ2" est vide, donc affichage du MsgBox ("Voulez-vous importer la Base de Donnée ori ") suivi de toute la procédure d'importation 
-Si la plage "MALQ2" n'est pas vide, alors affichage du MsgBox ("Vous ne pouvez Importer la BASE DE DONNEES ") puis fermeture ..... 

J'ai recopié le code ci-dessous. 
Merci beaucoup de m'aider à résoudre ce casse-tête. 



Private Sub Cmd_Import_BDD_Click()

On Error Resume Next

With Worksheets("BDD Agents ") 
    Set plage = Range("MALQ2") 
    If Application.CountA(plage) <> 0 Then

MsgBox ("Vous ne pouvez Importer la BASE DE DONNEES ") 
        Cancel = True 
        If Application.CountA(plage) = 0 Then 
            MsgBox ("Voulez vous importer la Base de Donnée ori ")

Dim Table, derlig 
            With Worksheets("BDD Agents ")

'derniere cellule non vide colonne A 
                derlig = .Range("A" & Rows.Count).End(xlUp).Row 
                'mise en memoire des infos 
                 Table = .Range("A2:J" & derlig) 
            End With 
            With Worksheets("BDD Agents ori") 
                'derniere cellule non vide colonne A 
                derlig = .Range("A" & Rows.Count).End(xlUp).Row 
                'si deja vide 
                If derlig = 1 Then 
                     derlig = 2 
                End If 
                'efface zone 
                .Range("A2:J" & derlig).ClearContents 
                'copie infos 
                .Range("A2").Resize(UBound(Table, 1), UBound(Table, 2)) = Table 
            End With 
            MsgBox ("L'importation de la Base de Donnée Q1 s'est terminée correctement.") 
        End If 
    End If 
End With 
End Sub

f894009 · Answer

Bonjour,

devrait aller:

Private Sub Cmd_Import_BDD_Click()    Dim Table, derlig        On Error Resume Next    If Application.CountA(Range("MALQ2")) > 0 Then        MsgBox ("Vous ne pouvez pas Importer la BASE DE DONNEES ")        'Cancel = True  ???????????????????    Else        reponse = MsgBox("Voulez-vous importer la Base de Donnée ori ?", vbYesNo)        If reponse = vbYes Then            With Worksheets("BDD Agents ")                'derniere cellule non vide colonne A                derlig = .Range("A" & Rows.Count).End(xlUp).Row                'mise en memoire des infos                Table = .Range("A2:J" & derlig)            End With            With Worksheets("BDD Agents ori")                'derniere cellule non vide colonne A                derlig = .Range("A" & Rows.Count).End(xlUp).Row                'si deja vide                If derlig = 1 Then                    derlig = 2                End If                'efface zone                .Range("A2:J" & derlig).ClearContents                'copie infos                .Range("A2").Resize(UBound(Table, 1), UBound(Table, 2)) = Table            End With            MsgBox ("L'importation de la Base de Donnée Q1 s'est terminée correctement.")        Else            MsgBox ("Pas d'importation base a votre demande.")        End If    End IfEnd Sub

A+

julia Namor · Answer

Bonjour f894009

Merci pour le code.Ca marche

J'ai voulu cacher certains onglets de mon fichier en passant par afficher /masquer dès que les feuilles concernées sont impliquées dans un calcul avec macro ou dès que j'en fais appel par un bouton ; il me met erreur; je pense que Excel ne les retrouve plus (puisqu'elles sont masquées)  

J'ai regardé pas mal de forums mais je n'arrive pas à trouver la résolution du problème. 

Auriez-vous une solution?

merci énormément

julia Namor · Answer

Bonjour F894009
Oui , je vais explorer la méthode de vaucluse 
merci

julia Namor · Answer

Bonjour à toutes et à tous

Je me permets de rester sur ce fil  pour vous solliciter à nouveau 

Je finalise  un fichier  sous forme de logiciel sur la gestion des arrêts. 

Problèmes : le fichier est lourd (19mo), long à ouvrir (presque 3mns) et à fermer  mais une fois ouvert on navigue dedans assez aisément.
J'y ai une multitude de formules de calculs (si, si et, si ou.....) associées à des macros.

Je reste convaincue (à tort certainement)  que les causes de la lourdeur du fichier et de la lenteur d'ouverture proviennent des nombreuses formules. 

Pour vous donner une idée, je vous joins une copie d'une partie  du  fichier. Notez que cette copie ne représente que la partie ou se trouvent les formules que j'incrimine et constitue le tiers du fichier final.
 
NB : J'ai aussi effectué un nettoyage manuel de toutes les feuilles pour éliminer les dernières cellules utilisées par Excel 

Est possible selon vous d'alléger les formules pour gagner en rapidité. 

Merci beaucoup 


https://www.cjoint.com/?3Itke29FYDF

f894009 · Answer

Bonjour,

Je reste convaincue (à tort certainement) que les causes de la lourdeur 

Ben si, que de formules et colonnes farcies. J'espere que vous avez besoin de tous ces renseignements pour une seule personne (qui est au courant de cela). Access aurait ete plus approprie dans votre cas. Avec du VBA, un minimum de formules et du temps ce serait jouable

julia Namor · Answer

Question peut être... bête 

J'ai lu quelque part que les formules nommées permettaient de gagner en rapidité. 

En nommant chaque formule  de la ligne 2  par un nom est-ce que je pourrais les étirer vers le bas?

Cordialement

Mike-31 · Answer

Bonjour le fil,

Oui tout à fait, exemple va dans le gestionnaire des et donne un nom à ta formule exemple Test
et dans fait référence à: tu saisis ta formule exemple A1+B1

en C1 tu fais appel à ton champ =Test et tu incrémentes vers le bas

mais tu pourrais également ajouter une conditionnelle pour ne pas afficher les zéros dans le cas de cellule vide

f894009 · Answer

Bonjour Mike_31,

merci du tuyau, mais sera-ce suffisant car son fichier est le 1/3 du final ????

Mike-31 · Answer

Re,

L'intérêt d'un champ nommé ou dans ton cas une formule nommée est que tu peux l'appeler sur n'importe quel onglet et allège énormément un fichier. Après il faut voir la structure du fichier pour juger

julia Namor · Answer

Bonjour et merci mike-31

j'ai nommé quelques formules comme tu m'as suggéré mais l'incrementataion vers le bas ne marche pas . 

Ou  peut etre que je m'y suis  mal pris?

Mike-31 · Answer

Re,

Colle une de ces formules qui ne s'incrémente pas pour voir

julia Namor · Answer

Un exemple de formule que j'ai nommé "AF" .Quand j'incrémente vers le bas c'est toujours AF qui est marqué et j'obtiens le même résultat pour toute la colonne  .

=SI(ET($I2="Médecine");SI(OU($J2="titulaire";$J2="stagiaire";$J2="Contractuel CDI");nbja($K2:$L2:$M2:$N2:$O2:$P2:$Q2;8;21)))

f894009 · Answer

Re, tout le monde

Dans le fichier de Julia Namor, pour moi, il faudra un nom par cellule avec formule puisque aucune formule est identique. Mais je ne connais pas tout ....

Mike-31 · Answer

Re,

explique ce que tu attends de ta formule, et que vient faire nbja 

=SI(ET($I2="Médecine");SI(OU($J2="titulaire";$J2="stagiaire";$J2="Contractuel CDI");nbja($K2:$L2:$M2:$N2:$O2:$P2:$Q2;8;21)))

julia Namor · Answer

En fait cette formule veut dire pour l'agent : si affectation est médecine puis statut est soit  titulaire ou Contractuel CDI ou stagiaire donc calcul :somme de tous les jours d'arrêts compris entre 8jrs et 21jrs  des colonnes k, m, n , o, p ,q 

NBJA vient de cette macro ci-dessous. 

Public Function nbja(plage As Range, nmin As Long, nmax As Long)
Dim cel As Range, total As Long, t, k As Long
Application.Volatile
total = 0
For Each cel In plage
  t = Split(cel.Value, "+")
  For k = 0 To UBound(t)
    If t(k) >= nmin And t(k) <= nmax Then total = total + 1
  Next k
Next cel
nbja = total
End Function

Merci beaucoup

Mike-31 · Answer

Re,

positionne la cellule sur la première cellule qui doit comptabiliser les jours et active le gestionnaire des noms, remplace ta formule  
 
=SI(ET($I2="Médecine");SI(OU($J2="titulaire";$J2="stagiaire";$J2="Contractuel CDI");nbja($K2:$L2:$M2:$N2:$O2:$P2:$Q2;8;21))) 

par  

=SI(ET(Feuil1!$I2="Médecine");SI(OU(Feuil1!$J2="titulaire";Feuil1!$J2="stagiaire";Feuil1!$J2="Contractuel CDI");SOMME(Feuil1!$K2:$Q2;8;21)))

mais d'après la fonction personnalisée elle doit compter le nombre entre une valeur mini et une valeur maxi que tu peux traiter dans la formule

julia Namor · Answer

Ok mike-31 je traite tout ca et te tiens au courant

Merci  beaucoup

Mike-31 · Answer

Re,

par contre pour compter le nombre d'arrêt la formule dans le gestionnaire des noms serait

=SI(ET(Feuil1!$I2="Médecine");SI(OU(Feuil1!$J2="titulaire";Feuil1!$J2="stagiaire";Feuil1!$J2="Contractuel CDI");NBVAL(Feuil1!J2:P2);21))

eriiic · Answer

Bonjour,

Au passage tes 3 fonctions personnalisées n'ont pas l'air d'avoir besoin d'être volatile. 
Elle reçoivent en paramètre toutes les cellules dont elles ont besoin, elles sont donc ré-évaluées automatiquement si un des paramètre change.

Là tu les recalcules systématiquement dans toutes les cellules pour rien, ça consomme des ressources inutilement. 
Rien que sur cet extrait, pour une moindre saisie n'importe où sur la feuille (même si aucune de ses fonction est partie prenante) tu la recalcules 7200 fois...
Met en commentaire application.volatile dans les 3 fonctions et tu n'attendras plus 3-4 secondes entre chaque saisie.

Autre conseil sur les formules.
Soit la formule : =SI(ET($G2="Hébergement");SI(OU($H2="titulaire";$H2="stagiaire";$H2="Contractuel CDI");nbja($I2:$J2:$K2:$L2:$M2:$N2:$O2;1;3)))
Le test OU($H2="titulaire";$H2="stagiaire";$H2="Contractuel CDI") est utilisé 20 fois sur la même ligne par d'autres formules, et encore plus loin au moins 110 fois, je n'ai pas eu le courage de regarder plus loin.
Ressort ce test dans une colonne ou il sera évalué une seule fois et le résultat utilisé par tes 130 formules.
Gain de réactivité encore. Même si c'est moins spectaculaire que s'il y avait des multiplications ou divisions, les opérations sur les chaines sont assez coûteuses.

eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

julia Namor · Answer

Bonjour Eric 


Si j'ai bien compris 

Je nomme le test  "OU ($H2="titulaire";$H2="stagiaire";$H2="Contractuel CDI")" puis je le remplace par son nom dans toutes les formules.

"Met en commentaire application.volatile dans les 3 fonctions et tu n'attendras plus 3-4 secondes entre chaque saisie"

Je n'ai pas bien compris ce que tu voulais dire 

Merci de m'aider

julia Namor · Answer

Merci de vous pencher sur mon casse-tête

J'ai nommé le test "OU(J2="titulaire";J2="stagiaire";J2="Contractuel CDI")" en "TESTA" 

Comment l'incruster dans la formule =SI(ET(H2="Diététicien";I2="Hébergement");SI(OU(J2="titulaire";J2="stagiaire";J2="Contractuel CDI");tja(S2)))

J'ai fait comme tel : =SI(ET(H2="Diététicien";I2="Hébergement");SI(OU(TESTA);tja(S2)))

 Mais la formule ne fonctionne. Elle me marque FAUX ; là où elle devrait marquer une valeur juste 

Merci beaucoup de m'aider

julia Namor · Answer

Oui Eric ; 

Je ne compte surement pas modifier chaque formule une à une . Mais je me disais qu'avec la fonction recherche de Excel  je pourrais effectuer des remplacements de syntaxe par des noms. 

Je suis larguée par ta proposition ci-dessous. Tu pourrais m'expliquer la procédure en utilisant  une autre colonne ?
<gras>
Le test OU($H2="titulaire";$H2="stagiaire";$H2="Contractuel CDI") est utilisé 20 fois sur la même ligne par d'autres formules, et encore plus loin au moins 110 fois, je n'ai pas eu le courage de regarder plus loin. 
Ressort ce test dans une colonne ou il sera évalué une seule fois et le résultat utilisé par tes 130 formules. 


Julia

julia Namor · Answer

Je n'ai pas modifié les codes VBA  personnalisés. C'est sûr qu'en passant par des macros j'aurais pu gagner en efficacité, encore faut-il savoir manipuler les codes VBA (tel n'est pas mon cas). C'est pourquoi je me suis contenté d'écrire des formules  et de les incrémenter ; d'où mon fichier farcis de formules comme dirait F894009.

J'ai commencé la procédure comme tu me l'as expliqué ; ça marche 

Si tu as des codes ; je suis preneuse 

Julia

julia Namor · Answer

Ne t'énerves pas Eric ; ton aide m'est précieuse. 

	J'ai effectué les modifications sur  les macros depuis  que tu me l'as conseillé ; (`Application volatile).

 Je pensais plutôt à des codes qui puissent  remplacer les nombreuses formules TEST  Si et  Si(et)  qui farcissent mon fichier  et de ce fait je pourrais envisager de changer la structure de mon fichier afin de pouvoir garder les modes d'exploitations  des résultats  des test SI ; 

Anyway , je te remercie  beaucoup pour ton soutien .

julia Namor · Answer

Bonsoir

J'ai nommé  tous les tests et effectué les remplacements. Je dirais que ça été un  peu mieux au niveau rapidité.

Mais en enregistrant mon fichier en format xlsb , c'est radical Le fichier s'ouvre en - 20 secondes et je ne constate aucun dysfonctionnement .

wait and see

Merci beaucoup

Conditions If... - Page 2

Discussions similaires

Newsletters