Soustraction graduelle
Résolu/Fermé
SkullG
Messages postés
10
Date d'inscription
vendredi 6 mai 2016
Statut
Membre
Dernière intervention
30 mai 2016
-
6 mai 2016 à 23:20
Mike-31 Messages postés 18357 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 6 février 2025 - 8 mai 2016 à 08:01
Mike-31 Messages postés 18357 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 6 février 2025 - 8 mai 2016 à 08:01
4 réponses
DjiDji59430
Messages postés
4198
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
19 février 2025
687
6 mai 2016 à 23:46
6 mai 2016 à 23:46
Bonjour,
Un truc de ce genre ???
https://www.cjoint.com/c/FEgvT74WrbG
Crdmt
Un truc de ce genre ???
https://www.cjoint.com/c/FEgvT74WrbG
Crdmt
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 114
Modifié par Mike-31 le 8/05/2016 à 08:38
Modifié par Mike-31 le 8/05/2016 à 08:38
Re,
ton code n'a rien à voir avec ta demande initiale, il s'agit d'un simple collage des valeurs
quand à sa simplicité, il s'agit d'un code édité par l'assistant macro avec pas mal d'inutilité !
si tu veux un code simple qui fait la même chose, dans ton code VBA il suffit simplement d'écrire
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
ton code n'a rien à voir avec ta demande initiale, il s'agit d'un simple collage des valeurs
quand à sa simplicité, il s'agit d'un code édité par l'assistant macro avec pas mal d'inutilité !
si tu veux un code simple qui fait la même chose, dans ton code VBA il suffit simplement d'écrire
[K7] = [K10]
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
SkullG
Messages postés
10
Date d'inscription
vendredi 6 mai 2016
Statut
Membre
Dernière intervention
30 mai 2016
6 mai 2016 à 23:56
6 mai 2016 à 23:56
Oui, exactement , mais peut tu faire ça sans les 'retiré' en boucle ?
Mike-31
Messages postés
18357
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
6 février 2025
5 114
7 mai 2016 à 10:22
7 mai 2016 à 10:22
Bonjour,
alors non il faut passer par du VBA avec ce genre de code, exemple saisie en cellule B2 résultat en B5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
If [B5] = "" Then
[B5] = Target
Else
[B5] = Range("B5").Value - Target.Value
End If
End If
End Sub
il est possible de passer avec une seule cellule avec un code plus complexe
alors non il faut passer par du VBA avec ce genre de code, exemple saisie en cellule B2 résultat en B5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then
If [B5] = "" Then
[B5] = Target
Else
[B5] = Range("B5").Value - Target.Value
End If
End If
End Sub
il est possible de passer avec une seule cellule avec un code plus complexe
SkullG
Messages postés
10
Date d'inscription
vendredi 6 mai 2016
Statut
Membre
Dernière intervention
30 mai 2016
8 mai 2016 à 00:33
8 mai 2016 à 00:33
ok merci j'ai réussi avec un code plutôt simple :
range("k10").select
selection.copy
range("k7")select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
sa marche plutot bien
range("k10").select
selection.copy
range("k7")select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
sa marche plutot bien