Macro de réinitialisation pour pointage opérations bancaires
2 réponses
Michir
Bonjour,
Soit une feuille de suivi des opérations bancaires avec :
. en colonne D une colonne de validation ayant des valeurs « OUI », « NON »
ou rien ("")
. en colonne F des montants en débit
. en colonne G des montant en crédit
Je souhaiterais faire une macro qui réinitialise toutes les valeurs à «
NON », mais uniquement si il y a des montants en débit ou en crédit
(colonnes F ou G)
En d'autres termes, il faudrait que la macro génère des valeurs « NON »
(colonne D) sur chaque ligne ayant une somme en débit ou en crédit (colonnes
F ou G)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Avec quelque chose comme ça en l'adaptant (ici le nom de la feuille est "LaFeuille" et on prend en référence la colonne A pour déterminer la dernière ligne non vide) Sub Reinit() Dim DerL& DerL = Worksheets("LaFeuille").Range("A65536").End(xlUp).Row With Worksheets("LaFeuille") For i = 1 To DerL If .Cells(i, 6).Value <> 0 Or .Cells(i, 7).Value <> 0 Then .Cells(i, 4).Value = "NON" Next i End With End Sub
Cordialement Pascal
"Michir" a écrit dans le message de news: 43bbb8bd$0$18309$
Bonjour,
Soit une feuille de suivi des opérations bancaires avec :
. en colonne D une colonne de validation ayant des valeurs « OUI », « NON » ou rien ("")
. en colonne F des montants en débit
. en colonne G des montant en crédit
Je souhaiterais faire une macro qui réinitialise toutes les valeurs à « NON », mais uniquement si il y a des montants en débit ou en crédit (colonnes F ou G)
En d'autres termes, il faudrait que la macro génère des valeurs « NON » (colonne D) sur chaque ligne ayant une somme en débit ou en crédit (colonnes F ou G)
Merci à tous,
Michel,
Bonjour
Avec quelque chose comme ça en l'adaptant (ici le nom de la feuille est
"LaFeuille" et on prend en référence la colonne A pour déterminer la
dernière ligne non vide)
Sub Reinit()
Dim DerL&
DerL = Worksheets("LaFeuille").Range("A65536").End(xlUp).Row
With Worksheets("LaFeuille")
For i = 1 To DerL
If .Cells(i, 6).Value <> 0 Or .Cells(i, 7).Value <> 0 Then .Cells(i,
4).Value = "NON"
Next i
End With
End Sub
Cordialement
Pascal
"Michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
43bbb8bd$0$18309$8fcfb975@news.wanadoo.fr...
Bonjour,
Soit une feuille de suivi des opérations bancaires avec :
. en colonne D une colonne de validation ayant des valeurs « OUI », «
NON » ou rien ("")
. en colonne F des montants en débit
. en colonne G des montant en crédit
Je souhaiterais faire une macro qui réinitialise toutes les valeurs à «
NON », mais uniquement si il y a des montants en débit ou en crédit
(colonnes F ou G)
En d'autres termes, il faudrait que la macro génère des valeurs « NON »
(colonne D) sur chaque ligne ayant une somme en débit ou en crédit
(colonnes F ou G)
Bonjour Avec quelque chose comme ça en l'adaptant (ici le nom de la feuille est "LaFeuille" et on prend en référence la colonne A pour déterminer la dernière ligne non vide) Sub Reinit() Dim DerL& DerL = Worksheets("LaFeuille").Range("A65536").End(xlUp).Row With Worksheets("LaFeuille") For i = 1 To DerL If .Cells(i, 6).Value <> 0 Or .Cells(i, 7).Value <> 0 Then .Cells(i, 4).Value = "NON" Next i End With End Sub
Cordialement Pascal
"Michir" a écrit dans le message de news: 43bbb8bd$0$18309$
Bonjour,
Soit une feuille de suivi des opérations bancaires avec :
. en colonne D une colonne de validation ayant des valeurs « OUI », « NON » ou rien ("")
. en colonne F des montants en débit
. en colonne G des montant en crédit
Je souhaiterais faire une macro qui réinitialise toutes les valeurs à « NON », mais uniquement si il y a des montants en débit ou en crédit (colonnes F ou G)
En d'autres termes, il faudrait que la macro génère des valeurs « NON » (colonne D) sur chaque ligne ayant une somme en débit ou en crédit (colonnes F ou G)
Merci à tous,
Michel,
JB
Bonjour,
A B C D E
1 Date Libellé Non Crédit Débit 2 01/01/2005 aaa Non 111 3 01/01/2005 aaa Oui 222 4 02/01/2005 aaa Oui 111 5 03/01/2005 aaa Non 333
Sub raz() For Each c In Range([A1], [A1].End(xlDown)) If c.Offset(0, 3) <> 0 Or c.Offset(0, 4) <> 0 Then c.Offset(0, 2) = "Non" End If Next c End Sub
Cordialement JB
Bonjour,
A B C D E
1 Date Libellé Non Crédit Débit
2 01/01/2005 aaa Non 111
3 01/01/2005 aaa Oui 222
4 02/01/2005 aaa Oui 111
5 03/01/2005 aaa Non 333
Sub raz()
For Each c In Range([A1], [A1].End(xlDown))
If c.Offset(0, 3) <> 0 Or c.Offset(0, 4) <> 0 Then
c.Offset(0, 2) = "Non"
End If
Next c
End Sub
