Contenu récent par JBARBE

  1. JBARBE

    Autres probléme avec la formule SI

    Bonjour à tous, pour être plus claire J'ai une formule qui me renvoi la valeur #VALEUR! =SI(ET(F3015<>"";H3014<>"");H3014-F3015);SI(ET(H3014<>"";G3015<>"");H3014+G3015) je ne comprends pas puisque la formule =SI(ET(F3015<>"";H3014<>"");H3014-F3015) fonctionne bien mais il me faut l’autre si...
  2. JBARBE

    Autres Problème formule si

    Bonjour à tous 28/12/22 Internet X P 34,68 €1000 01/01/23 Portable X P 31,99 #VALEUR! =SI(ET(F3015<>"";H3014<>"");H3014-F3015);SI(ET(H3014<>"";G3015<>"");H3014+G3015)= #VALEUR! : F3015 = 1000 > H3014=31,99 >G3015>VIDE
  3. JBARBE

    Autres problème avec les dates

    Bonjour, C'était dû à une mauvaise manipulation Bizarre que l'on n'a pu rien faire J'ai pu récupérer le programme sur une clé USB qui n'avait pas été sauvegardé à ce moment là ! Merci à tous ! Bonne journée
  4. JBARBE

    Autres problème avec les dates

    voici le programme : le mot de passe est > ABcH5K68Z
  5. JBARBE

    Autres problème avec les dates

    c'est ça Sub Au() Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy" End Sub
  6. JBARBE

    Autres problème avec les dates

    probléme !!!!!!
  7. JBARBE

    Autres problème avec les dates

    Sub Au() Sheets("SG").Range("Date").NumberFormat = "dddd dd/mm/yy" End Sub Date =(SoldeB-SOMME.SI($E$6:$E$63278;"=P";$F$6:$F$63278)+SOMME.SI($E$6:$E$63278;"=P";$G$6:$G$63278)) 45288 Portable 31,99 0 Sheets(« SG ») Range(« A4 ») Sub Au()...
  8. JBARBE

    Autres problème avec les dates

    bonjour à tous, c'est encore moi , J'ai une feuille avec une date 12/12/2023 qui c'est transformé en 45272 j'ai essayer ceci qui efface la cellule !!!!!! Sub Au() Dim dateTest As String Dim J As Long For J = 6 To 66 If Sheets("SG").Cells(J, 1) <> "" Then Sheets("SG").Cells(J, 1) =...
  9. JBARBE

    Autres Probléme avec For next

    Fichier modifier toutes mes excuses
  10. JBARBE

    Autres Probléme avec For next

  11. JBARBE

    Autres Probléme avec For next

    Option Explicit Sub Prelevement() Dim Réponse As String Application.ScreenUpdating = False Sheets("Tableau_de_bord").Select Sheets("Prelevement").Select Dim j As Long For j = 3 To 21 Sheets("SG").Range("Zone_saisie").ClearContents If Sheets("prelevement").Cells(j, 3) <> ""...
  12. JBARBE

    Autres Probléme avec For next

    fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
  13. JBARBE

    Autres Probléme avec For next

    fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
  14. JBARBE

    Autres Probléme avec For next

    fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait
  15. JBARBE

    Autres Probléme avec For next

    fichier modifier ! c'est dur pour un vieux de 72 ans Merci pour ta collaboration ton code était parfait