Code à rectifier SVP
emab
Messages postés
4
Statut
Membre
-
emab Messages postés 4 Statut Membre -
emab Messages postés 4 Statut Membre -
Bonjour,
j'ai ecrit un code en VBA mais et ça marche au niveau du parcour de la plage des cellules mais, le probleme c'est que y a pas d'affectation dans les cellules cibles,
donc merci pour votre aide ....
voici mon code (pas tres long) :
Sub Bouton1_QuandClic()
Dim code, debit, credit As String
worksheets("A").Select
Range("a2").Select
While ActiveCell.Value <> ""
code = ActiveCell.Value
debit = Val(ActiveCell.Offset(0, 2))
credit = Val(ActiveCell.Offset(1, 3))
Worksheets("BAL-N").Select
Range("b3").Select
While ActiveCell.Value <> Empty 'ActiveCell.Value <> code
If ActiveCell.Value = code Then
If debit <> 0 Then
ActiveCell.Offset(0, 2).Value = Val(debit)
Else
ActiveCell.Offset(0, 3).Value = Val(credit)
End If
End If
ActiveCell.Offset(1, 0).Select
Wend
Sheets("A").Select
ActiveCell.Offset(1, 0).Select
Wend
End Sub
merci
j'ai ecrit un code en VBA mais et ça marche au niveau du parcour de la plage des cellules mais, le probleme c'est que y a pas d'affectation dans les cellules cibles,
donc merci pour votre aide ....
voici mon code (pas tres long) :
Sub Bouton1_QuandClic()
Dim code, debit, credit As String
worksheets("A").Select
Range("a2").Select
While ActiveCell.Value <> ""
code = ActiveCell.Value
debit = Val(ActiveCell.Offset(0, 2))
credit = Val(ActiveCell.Offset(1, 3))
Worksheets("BAL-N").Select
Range("b3").Select
While ActiveCell.Value <> Empty 'ActiveCell.Value <> code
If ActiveCell.Value = code Then
If debit <> 0 Then
ActiveCell.Offset(0, 2).Value = Val(debit)
Else
ActiveCell.Offset(0, 3).Value = Val(credit)
End If
End If
ActiveCell.Offset(1, 0).Select
Wend
Sheets("A").Select
ActiveCell.Offset(1, 0).Select
Wend
End Sub
merci
A voir également:
- Code à rectifier SVP
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Scanner qr code pc - Guide
2 réponses
donc, si je comprend bien ton code...
il regarde en A!A2 si y a quelquechose, si oui il met A!A2 en Bal-N!b3 et debit ou credit en b5 ou b6 puis passe à la ligne d'apres de la feuille A et refait la manip => met en bal-n!c3 A!b3 et debit credit (selon) en c5 et c6.. tant que la cellule de la feuille A contient quelquechose..
c'est ca?
si oui, y a carrément plus court ;)
il regarde en A!A2 si y a quelquechose, si oui il met A!A2 en Bal-N!b3 et debit ou credit en b5 ou b6 puis passe à la ligne d'apres de la feuille A et refait la manip => met en bal-n!c3 A!b3 et debit credit (selon) en c5 et c6.. tant que la cellule de la feuille A contient quelquechose..
c'est ca?
si oui, y a carrément plus court ;)
