Contenu récent par Lucie44

ok merci beaucoup je teste et vous redis à tous se serais génialissime que cela fonctionne

Merci beaucoup je viens de voir votre réponse et c'est ok je pense, je vais dupliquer sur toute ma colonne de 1600 ligne et vous redis . MErci c'est génial en tout cas

Bonjour tout le monde je voudrais trouver une solution pour une formule dont le résultat serait le contenue de 2 cellules mais avec des critères particulier en pièce jointe un exemple concret; en colonne E je veux obtenir ceci : E6= SI A6 commence par ->; A6+ valeur de la première (texte...

problème résolut ainsi 'Recopier les colonnes A à I sur la feuille sage pour export vers fichier txt Sub CopierEcritures() Dim Dernligne As Long Worksheets("etape2").Select Dernligne = Range("B" & Rows.Count).End(xlUp).Row Columns("A:L").Select...

bonjour ca a un peu évoluer mais pas complètement OK. avec la notion cdate j'ai bien la date au bon format qui s'affiche dans mes feuilles excel. je recopie valeur et format dans une autre feuille jusque là c'est bon, et cette nouvelle feuille je veux la sauvegarder dans un nouveau classeur au...

bonjour, dans une macro je demande la date à renseigner sur toutes les lignes du tableau. Je renseigne 01/07/2022 dans la msgbox, mais dans la cellule j'obtiens 017/01/2022 j'ai essayer de changer le format : Range("C2") = Format(DateJ, "dd/mm/yyyy") me donne 07/01/2022 Range("C2") =...

Merci beaucoup pour ton retour ca marche aussi ;-)

Merci beaucoup Hasco je viens de tester et ca fonctionne avec ta 1ère solution

Bonjour j'essaie de trouver une solution pour compter dans une colonnes de rechercheV, toutes les valeurs #N/A donc non trouvées. Et que si le nombre calculé de valeurs erreurs est > à 0 donc qu'il y a des erreurs, avec un msg box avec le nombre d'erreur. Je ne comprends pas l'erreur, le message...

Merci beaucoup du coup ca marche ;-) Merci pour tout, la solution mais aussi votre rapidité

Voici le classeur je suis sur la feuille Etape 2 dernier code encours

Vous voulez dire: Dim TotalVrt As Double TotalVrt = WorksheetFunction.SumIf(Range("A2:A150000"), 6, Range("H2:H150000")) - WorksheetFunction.SumIf(Range("A2:A150000"), 7, Range("H2:H150000")) TotalVrt = Format(TotalVrt, "#,##0.00") MsgBox ("Le montant de votre...

Merci pour votre retour j'ai bien le signe € qui s'affiche mais pas de décimales. j'ai éssayé de changer les montants pour être sur que le résultats ai des décimal et toujours rien dans la boite de dialogue

J'ai réussi a avoir 2 décimales mais j'ai un doute sur le fiabilité, car quand je fait la formule sur la page j'ai un résultat de 7446.94 or dans ma boite de dialogue j'ai 7447.00 Sub formule() Dim TotalVrt As Integer TotalVrt = WorksheetFunction.SumIf(Range("A2:A150000"), 6...

Je réponds à mon propre message pour vous indiquer que j'ai trouvé une partie de la solution. Voici la formule qui fonctionne correctement. Maintenant je voudrais un résultat avec 2 décimale, est possible (je pense que oui ;-)) mais comment??? Et je voudrais un choix de réponse Oui et Non pour...