J'ai une erreur 424
Résolu
Mistral_13200
Messages postés
634
Date d'inscription
mardi 5 août 2008
Statut
Membre
Dernière intervention
21 mars 2024
-
21 mars 2024 à 09:24
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 - 21 mars 2024 à 15:56
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 - 21 mars 2024 à 15:56
A voir également:
- J'ai une erreur 424
- Erreur 0x80070643 - Guide
- Code erreur f3500-32 ✓ - Forum Bbox Bouygues
- Erreur 10016 epson - Forum Imprimante
- Une erreur s'est produite youtube ✓ - Forum YouTube
- Erreur g030 - Forum Bbox Bouygues
3 réponses
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
21 mars 2024 à 10:29
21 mars 2024 à 10:29
Bonjour,
Au passage, essayez avec ce code:
Sub PreparationTCD()
With Sheets("Archives")
' Mise à jour jaune préparatoire au TCD.
' Définition de la variable "Ligne".(dernière ligne de la colonne C
Ligne = .Cells(Rows.Count, 3).End(xlUp).Row
' Définition du mois en lettres.
mois = Choose(Month(.Cells(Ligne, 3)), "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", _
"Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
' Remplissage ligne du tableau jaune.
.Cells(Ligne, 27).Value = mois & " " & Year(.Range("C" & Ligne)) ' Mois suivi de l'année
.Cells(Ligne, 28).Value = .Cells(Ligne, 5)
If .Cells(Ligne, 9) <> "" Then 'si c'est une dépense
.Cells(Ligne, 29).Value = .Cells(Ligne, 9) * -1 'Me.TextBox_Debit * -1
Else 'si pas dépense c'est au crédit
.Cells(Ligne, 29).Value = .Cells(Ligne, 10)
End If
End With
End Sub
Mistral_13200
Messages postés
634
Date d'inscription
mardi 5 août 2008
Statut
Membre
Dernière intervention
21 mars 2024
4
21 mars 2024 à 15:19
21 mars 2024 à 15:19
Bonjour Le Pingou,
Je viens de faire les tests aussi bien sur le classeur test que je t'avais envoyé mais aussi dans le classeur final en l'integrant dans mes macros et tout fonctionne parfaitement.
Je ne connaissais pas cette instruction With qui permet de simplifier le code sans avoir à répeter le nom de la feuille.
Je ferme le sujet.
Mille mercis à toi.
Cordialement
Mistral
Le Pingou
Messages postés
12069
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
6 mai 2024
1 431
21 mars 2024 à 15:56
21 mars 2024 à 15:56
Merci, bonne suite