A

Jeune membre

Inscrit le :29/12/2016
Dernière activité :01/02/2017 à 16:01
Version d'Excel :2007
Messages
41
Votes
4
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par AYARI Moncef

DateAuteur du sujetSujetExtrait du message
28/01/2017 à 11:32Costa Extraire le lien hypertexte d'une image sous forme de texteA essayer et à adapter. Sub Test() MsgBox ActiveSheet.Shapes.Count For Each obj In ActiveSheet.Shapes MsgBox obj.Name & "*/*" & obj.Hyperlink.Name Next End Sub Cordialement...
28/01/2017 à 09:30café crémeSouci sur une formule imbriquéEssayer avec droite(Total;2) ce qui vous donnera l'age, et ent(Total/100) ce qui vous donnera le chiffre pensé. Cordialement...
26/01/2017 à 21:24café crémeSouci sur une formule imbriquéIl me semble qu'il manque à votre formule un élément essentiel. Regardez ce que çà donne pour tous les chiffres de à 0 9 (Tableau en jaune). Toutefois la formule, telle que vous l'avez expliquée est en C7. Pour l'anniversaire passé ou pas, il faut le matérialiser par 0 ou 1 dans la cellule D13. Main...
26/01/2017 à 20:46ChipsouCréer un compteur automatiqueVoilà pour essai. Appuyer sur F9 et contrôler les résultats plusieurs fois. Cordialement...
21/01/2017 à 01:13Yvouille Formule matricielle en VBAUn Essai. Cordialement...
21/01/2017 à 00:16Steelson Somme des codes et valeursPas de soucis, voici une proposition. Cordialement...
20/01/2017 à 18:16daieul Remplacer un mot par un autre dans plusieurs classeursLes noms de ces 100 classeurs sont une suite quelconque (Exp. File001, File002, File003, ...) ou choisis sans suite (Exp FileTot, ClassXyz, RécapMM, ...). Sont-ils aussi dans le même répertoire ou non. Parce qu'il faut pour le deuxième cas un classeur contenant une liste nominative des 100 classeurs...
19/01/2017 à 10:56benjiben Etirer une formule VBA sur une colonneEssayer cette macro : Sub CopierVersLeBasSansSelection() ' ' Codes vba précedant la décision de copie ' 'Vous êtes là et vous voulez copier vers le bas la cellule B2 jusqu'à B19 Range("B2").FormulaLocal = "=" & "GAUCHE(A2;12)" Range("B2:B19").FillDown 'Vous continuez votre code ' ' Codes vba suivant...
18/01/2017 à 15:18smelocheTrouver une cellule avec avec 3 critèresVoici de retour votre feuille avec une formule qui fait l'affaire. Cordialement...
18/01/2017 à 14:42benjiben Etirer une formule VBA sur une colonneSub CopierVersLeBas() macro avec touche de raccourci Ctrl+a Selection.FillDown End Sub Vous avez une formule à une cellule donnée : exp C3 et vous voulez copier la formule sur les cellules suivantes, jusqu'à le cellule C10 par exemple. Alors sélectionnez C3 à C10 et taper Ctrl+a la macro CopierVersL...
18/01/2017 à 13:58benjiben Etirer une formule VBA sur une colonneEssayer range(x:y).filldown x étant première cellule contenant la formule y étant la dernière cellule qui doit la recevoir Cordialement...
18/01/2017 à 13:14thomas-tlseProbleme condition à 4 conditionsJe reviens à la charge et je m'en excuse. x(E6) 2,1 E Si(et(x<2,3) ;E ;si((x>2,3 ;x<3,08) ;D ;si((x>3,08 ;x<3,88) ;C ;si((x>3,88 ;x<4,4) ;B)))) 2,2 E 2,3 ?? si(E6<2,3;"E";"s") 2,4 D si(et(E6>2,3;E6<3,08);"D";"s") 2,5 D si(et(E6>3,8;E6<3,88);"C";"s") 3,06 D si(et(E...
18/01/2017 à 10:50thomas-tlseProbleme condition à 4 conditionsQue faire quand x est égal à 2,3 ou 3,08 ou encore 3,88 Cordialement...
18/01/2017 à 10:37mlegentil MFC sur doublons avec clé primaireA 3h du matin dites-vous ! Cela me rappelle beaucoup de souvenirs. Des souvenirs vieux de plus de quarante ans. Merci de m'avoir ramené si loin. Bon courage, et à une autre fois peut être. Cordialement...
17/01/2017 à 21:26mlegentil MFC sur doublons avec clé primaireOn met en veilleuse pour la macro. Je peux peut être aider pour l'isolement des doublons si j'ai un classeur avec des explications. pour les chiffres, c'est 40000 commandes ! et pour combien de factures ? Il serait intéressant de faire une simulation et voir la durée globale de traitement. Avec un v...
17/01/2017 à 19:16mlegentil MFC sur doublons avec clé primaireVoilà ci-joint le classeur remodelé. C'est toujours avec la MFC. J'ai entamé une Macro en VBA avec un Bouton pour la lancer. Elle sera prête demain, mais en attendant si vous avez des ajouts à faire n’hésitez pas de m'en faire part. Cordialement...
17/01/2017 à 13:48lmnx Mise en forme conditionnelle sauf cellules videsC'est possible avec la MFC. Cordialement...
17/01/2017 à 13:17cisco38Recuperer chaine de caractere VBAC'est encore moi. Voilà une fonction qui fait l'affaire. Function MajSpTexte(CellAvant As Range) As String Dim Contenu As String Dim Resultat As String Dim LongStr As Integer Dim PG1 As Integer Dim PG2 As Integer Dim TxtSup As String Contenu = CellAvant.Value Resultat = Contenu LongStr = Len(Contenu...
17/01/2017 à 10:59cisco38Recuperer chaine de caractere VBATout d'abord par formule, la Macro peut suivre si c'est nécessaire. =REMPLACER(A1;TROUVE("""";A1;1);TROUVE("""";A1;TROUVE("""";A1;1)+1)-TROUVE("""";A1;1)+1;"") A1 étant la cellule qui contient le texte. Cordialement...
16/01/2017 à 20:28mlegentil MFC sur doublons avec clé primaireMoyennant deux colonnes supplémentaires qui peuvent être masquées ou décalées à l’extrême droite et deux petits tableaux que j'ai mis sur une deuxième feuille mais qui peuvent être mis sur la feuille principale et bien sur la MFC on arrive à résoudre le problème. Ci-joint le classeur avec propositio...
14/01/2017 à 19:40thirdstone84Exploiter données d'un autre classeurLa demande était : Ca fonctionne bien, à un détail près : si je n'ouvre que le bilan, sans ouvrir la facture correspondante, Excel ne récupère pas les données et m'envoie une erreur #VALEUR. Dès que j'ouvre le classeur (de janvier dans mon exemple), la formule s'actualise et le résultat s'affiche sa...
14/01/2017 à 12:31SnowkiteChangement de couleur de cellule en fonction du nomPour répondre à votre demande. =SI(ESTNUM(EQUIV($B9;$N$13:$N$23;0));SI(INDEX($O$13:$O$23;EQUIV($B9;$N$13:$N$23;0))="F";INDEX($P$13:$P$23;EQUIV($B9;$N$13:$N$23;0));"");"") Regarder dans le fichier ci-joint...
14/01/2017 à 02:22thirdstone84Exploiter données d'un autre classeurTout d'abord pourquoi une macro ? Votre problème c'est la liaison qui ne se fait pas correctement avec un classeur fermé. La, il suffit de remplacer la fonction =somme.si par =sommeprod et le tour est joué. Mais tout d'abord essayer de nommer vos plages. C'est plus commode pour travailler. Disons :...
13/01/2017 à 22:36SnowkiteChangement de couleur de cellule en fonction du nomLa mise en forme par macro VBA est possible et son lancement peut se faire par différentes manières. Ceci dit, la MFC est non seulement possible mais pratique également. Alors je vous propose de jeter un coup d’œil à votre feuille remodelée pour trois couleurs seulement de l'onglet 16 et on reparler...
13/01/2017 à 21:47philippe.p@ Coloriage lignes en fonction d'une conditionC'est possible avec la mise en forme conditionnelle. Ci joint un exemple avec des recommandations pour l’extension en colonnes et en lignes. Cordialement...
13/01/2017 à 21:25pacconat Effacement celluleSi j'ai bien compris vous voulez qu'à l'effacement sur la feuille B-Commande d'une commande la MAJ sur la feuille Huiles-Essentielles se fasse automatiquement. Je dis bien effacement et non suppression de la ligne. Voilà ci joint une proposition de solution testée. Enfin, travailler avec des plages...
13/01/2017 à 20:45Audrey5Projet informatiqueTout en étant d'accord avec Yvouille (votre demande n'est très assez développée), je répond à votre demande relative à l'ajout d'un client. Seulement c'est très schématique. L'ajout d'un client suppose une saisie des informations le concernant et suppose aussi le contrôle de ces informations. On peu...
13/01/2017 à 19:57Jeanvaljean Répartition de colis en fonction de CAVoilà encore une proposition maison (pas scientifique). Elle peut facilement être convertie en une macro à appeler par un raccourci ou encore un bouton. Testée sur plusieurs nombres de colis, une bonne partie trouve tous les colis répartis, pour l'autre il reste 1 unique colis sur la table (je suis...
12/01/2017 à 21:33Fred65Mise en forme conditionnelleVeuillez trouver ci joint une copie de votre feuille avec le résultat. Vous remarquerez également que la même formule marche avec =SI ..... pour la ligne en question. Cordialement...
12/01/2017 à 15:54Jeanvaljean Répartition de colis en fonction de CAIl y a une similitude entre votre cas (répartition des cadeaux proportionnellement aux CA) et la répartition des sièges proportionnellement aux nombres de votes. Les deux objets de la répartition ne souffrent pas le fractionnement. Plusieurs méthodes existent : méthode de la plus forte moyenne, cell...
11/01/2017 à 23:14Audrey5 Colorier valeur la plus grande par ligneSi on peut appliquer la mise en forme conditionnelle. Veuillez trouver ci-joint un exemple qui le confirme. Cordialement...
11/01/2017 à 22:18Nico44044 Aide pour simplifier une MacroJe vous propose une solution pour l'affichage de la compétence sélectionnée en masquant toutes les autres en attendant de mieux connaitre le sujet et proposer peut être des améliorations. Cordialement. Bonsoir. Désolé, j'ai oublié de préciser que le code de la compétence choisie est à renseigner dan...
11/01/2017 à 20:57barachoieFonctions Gauche DroiteProposition testée : ="Rapport du " & STXT(A1;10;TROUVE("__";A1;1)-1-17-9) & DROITE(STXT(A1;1;TROUVE("__";A1;1)-1);17) Cordialement...
11/01/2017 à 19:42A_Angers Afficher "texte" si conditions réuniesVoilà une autre proposition en fonction du grand tableau B29 à X48. Cordialement...
11/01/2017 à 19:29A_Angers Afficher "texte" si conditions réuniesVoici une proposition basée sur le contenue des colonnes H à N. Le résultat se trouve sur la colonne Q. Dans les colonnes F, I, L, O, R, U, X quand c'est pas libre il y a un double espace : " ". Voir si ce n'est as la cause...
11/01/2017 à 18:46Fred65Mise en forme conditionnelleVoilà une solution que j'ai testée. =SI(OU(ET(C9="Liquide";P9<1,8);ET(C9="Ancillaire";OU(P9<1,8;P9>2,5)));"Rouge";"") pour le 1,8 en rouge dans votre exemple, ce n'est pas une erreur. En réalité c'est 1,79 valeur qui a été arrondie pour l'affichage mais elle reste < à 1,8 Cordialement...
11/01/2017 à 18:06Duloise Recherche conditionnelleAutre proposition peut être. SI(D2="";"";SI(ESTNUM(EQUIV(D2;$J$2:$J$23;0));"E";SI(E2>89;"D";SI(E2<5;"A";SI(E2<20;"B";"C")))))...
11/01/2017 à 17:22Jeanvaljean Répartition de colis en fonction de CA=SI(RANG(B7;$B$7:$B$45;0)<=MOD($C$3;NBVAL($B$7:$B$45));ENT($C$3/NBVAL($B$7:$B$45))+1;ENT($C$3/NBVAL($B$7:$B$45)))...
01/01/2017 à 21:44eiwdiceMacro de supression sélective ?Pourquoi des boutons pour supprimes des éléments ? Il est peut être plus intéressant d'utiliser les cellules de la colonne F pour supprimer les éléments choisis et ce en utilisant l'évènement : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Pour les boutons, il fau...
31/12/2016 à 10:12Jonquille9231 Créer un message d'alerte quand ma cellule changeEssayer ce code que j'ai trouvé déjà sur le net. Je l'ai testé et ça marche bien. Dans le module de la feuille Public ValPrec Private Sub Worksheet_Calculate() Vérif End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub Vérif End...
29/12/2016 à 23:31NARIES2016Si et recherchev combinés???Essayer la formule suivante =SOMMEPROD(($A$2:$A$51=G2)*($B$2:$B$51<=1)*1)...