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 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 - 8 mai 2016 à 08:01
Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 - 8 mai 2016 à 08:01
4 réponses
DjiDji59430
Messages postés
4139
Date d'inscription
samedi 19 avril 2008
Statut
Membre
Dernière intervention
8 novembre 2024
678
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
18345
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
8 novembre 2024
5 104
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
18345
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
8 novembre 2024
5 104
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