Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro absolue à transformer en relatif

Macro absolue à transformer en relatif

5 réponses
Avatar
DC
Bonjour à tous.........................Bonjour Jacky,

j'ais une macro conçue par Jacky, aussi je ne sais plus comment le joindre,
car le fil est terminé, j'espère qu'il comprendra ma démarche,

Cette macro fonctionne très bien en absolue,

Mais j'aimerais qu'elle fonctionne en relatif et je ne sais pas comment
faire pour la modifier, c'est ma faute, j' ai oublié de le préciser à Jacky,

Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[I1] = ""
ElseIf x = 5.5 Then
[I1] = [c1] - [a1]
[H1] = ""
Else
[I1] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
End Sub

Salutations!...........Merci d'avance................DC
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
michdenis
Bonjour DC,

Tu peux élaborer sur ce que tu entends par :

| j'aimerais qu'elle fonctionne en relatif


Salutations!


"DC" a écrit dans le message de news: 433c1793$0$1718$
Bonjour à tous.........................Bonjour Jacky,

j'ais une macro conçue par Jacky, aussi je ne sais plus comment le joindre,
car le fil est terminé, j'espère qu'il comprendra ma démarche,

Cette macro fonctionne très bien en absolue,

Mais j'aimerais qu'elle fonctionne en relatif et je ne sais pas comment
faire pour la modifier, c'est ma faute, j' ai oublié de le préciser à Jacky,

Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[I1] = ""
ElseIf x = 5.5 Then
[I1] = [c1] - [a1]
[H1] = ""
Else
[I1] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
End Sub

Salutations!...........Merci d'avance................DC
Avatar
Jacky
Bonsoir
J'oserais deviner un truc du genre
[H1].FormulaR1C1 = "=R[1]C[-5]-R[1]C[-7]"
Mais pas sur; attendons
;o))
JJ
"michdenis" a écrit dans le message de
news:ufxU%
Bonjour DC,

Tu peux élaborer sur ce que tu entends par :

| j'aimerais qu'elle fonctionne en relatif


Salutations!


"DC" a écrit dans le message de news:
433c1793$0$1718$

Bonjour à tous.........................Bonjour Jacky,

j'ais une macro conçue par Jacky, aussi je ne sais plus comment le
joindre,

car le fil est terminé, j'espère qu'il comprendra ma démarche,

Cette macro fonctionne très bien en absolue,

Mais j'aimerais qu'elle fonctionne en relatif et je ne sais pas comment
faire pour la modifier, c'est ma faute, j' ai oublié de le préciser à
Jacky,


Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[I1] = ""
ElseIf x = 5.5 Then
[I1] = [c1] - [a1]
[H1] = ""
Else
[I1] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
End Sub

Salutations!...........Merci d'avance................DC





Avatar
DC
Bonsoir à tous.................Bonsoir Jacky et michdenis,

Ce que j'entends, par " j'aimerais qu'elle fontionne en relatif "

Et bien, à chaque éxécution de la macro, l'on change de ligne, mais pas de
colonnes donc les références ne peuvent pas être absolues, enfin c'est ceque
je pense, à moins que??...peut être que les colonnes restent en absolues, je
ne sais pas.......j'imagine.......!!!!

J'espère avoir bien précisé ma pensée.............Merci!

Salutation!.........encore Merci d'avance..........DC


"Jacky" a écrit dans le message de news:

Bonsoir
J'oserais deviner un truc du genre
[H1].FormulaR1C1 = "=R[1]C[-5]-R[1]C[-7]"
Mais pas sur; attendons
;o))
JJ
"michdenis" a écrit dans le message de
news:ufxU%
Bonjour DC,

Tu peux élaborer sur ce que tu entends par :

| j'aimerais qu'elle fonctionne en relatif


Salutations!


"DC" a écrit dans le message de news:
433c1793$0$1718$

Bonjour à tous.........................Bonjour Jacky,

j'ais une macro conçue par Jacky, aussi je ne sais plus comment le
joindre,

car le fil est terminé, j'espère qu'il comprendra ma démarche,

Cette macro fonctionne très bien en absolue,

Mais j'aimerais qu'elle fonctionne en relatif et je ne sais pas comment
faire pour la modifier, c'est ma faute, j' ai oublié de le préciser à
Jacky,


Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[I1] = ""
ElseIf x = 5.5 Then
[I1] = [c1] - [a1]
[H1] = ""
Else
[I1] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
End Sub

Salutations!...........Merci d'avance................DC









Avatar
michdenis
Bonjour DC,

Quelque chose comme ceci :

'------------------------------
Sub Test()
Dim x As Single, Ligne As Long

Ligne = ActiveCell.Row
x = (Range("C" & Ligne) / Range("A" & Ligne) - 1) * 100
If x = 19.6 Then
Range("H" & Ligne) = Range("C" & Ligne) - Range("A" & Ligne)
Range("i" & Ligne) = ""
ElseIf x = 5.5 Then
Range("i" & Ligne) = Range("C" & Ligne) - Range("A" & Ligne)
Range("H" & Ligne) = ""
Else
Range("i" & Ligne) = ""
Range("H" & Ligne) = ""
MsgBox "TVA de " & x & "% inconnue"
End If

End Sub
'--------------------------------


Salutations!


"DC" a écrit dans le message de news: 433c305f$0$1001$
Bonsoir à tous.................Bonsoir Jacky et michdenis,

Ce que j'entends, par " j'aimerais qu'elle fontionne en relatif "

Et bien, à chaque éxécution de la macro, l'on change de ligne, mais pas de
colonnes donc les références ne peuvent pas être absolues, enfin c'est ceque
je pense, à moins que??...peut être que les colonnes restent en absolues, je
ne sais pas.......j'imagine.......!!!!

J'espère avoir bien précisé ma pensée.............Merci!

Salutation!.........encore Merci d'avance..........DC


"Jacky" a écrit dans le message de news:

Bonsoir
J'oserais deviner un truc du genre
[H1].FormulaR1C1 = "=R[1]C[-5]-R[1]C[-7]"
Mais pas sur; attendons
;o))
JJ
"michdenis" a écrit dans le message de
news:ufxU%
Bonjour DC,

Tu peux élaborer sur ce que tu entends par :

| j'aimerais qu'elle fonctionne en relatif


Salutations!


"DC" a écrit dans le message de news:
433c1793$0$1718$

Bonjour à tous.........................Bonjour Jacky,

j'ais une macro conçue par Jacky, aussi je ne sais plus comment le
joindre,

car le fil est terminé, j'espère qu'il comprendra ma démarche,

Cette macro fonctionne très bien en absolue,

Mais j'aimerais qu'elle fonctionne en relatif et je ne sais pas comment
faire pour la modifier, c'est ma faute, j' ai oublié de le préciser à
Jacky,


Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[I1] = ""
ElseIf x = 5.5 Then
[I1] = [c1] - [a1]
[H1] = ""
Else
[I1] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
End Sub

Salutations!...........Merci d'avance................DC









Avatar
DC
Bonjour à tous...............Bonjour michdenis et Jacky,

Bravo michdenis, c'est parfait et ça fonctionne très bien,

A vous deux, vous avez solitionné mon problème et je ne sais comment vous
remercier, sinon glorifier vos compétences.....
.........Merci!

Salutation!.............Merci!............Merci!.........DC

"michdenis" a écrit dans le message de news:

Bonjour DC,

Quelque chose comme ceci :

'------------------------------
Sub Test()
Dim x As Single, Ligne As Long

Ligne = ActiveCell.Row
x = (Range("C" & Ligne) / Range("A" & Ligne) - 1) * 100
If x = 19.6 Then
Range("H" & Ligne) = Range("C" & Ligne) - Range("A" & Ligne)
Range("i" & Ligne) = ""
ElseIf x = 5.5 Then
Range("i" & Ligne) = Range("C" & Ligne) - Range("A" & Ligne)
Range("H" & Ligne) = ""
Else
Range("i" & Ligne) = ""
Range("H" & Ligne) = ""
MsgBox "TVA de " & x & "% inconnue"
End If

End Sub
'--------------------------------


Salutations!


"DC" a écrit dans le message de news:
433c305f$0$1001$
Bonsoir à tous.................Bonsoir Jacky et michdenis,

Ce que j'entends, par " j'aimerais qu'elle fontionne en relatif "

Et bien, à chaque éxécution de la macro, l'on change de ligne, mais pas de
colonnes donc les références ne peuvent pas être absolues, enfin c'est
ceque
je pense, à moins que??...peut être que les colonnes restent en absolues,
je
ne sais pas.......j'imagine.......!!!!

J'espère avoir bien précisé ma pensée.............Merci!

Salutation!.........encore Merci d'avance..........DC


"Jacky" a écrit dans le message de news:

Bonsoir
J'oserais deviner un truc du genre
[H1].FormulaR1C1 = "=R[1]C[-5]-R[1]C[-7]"
Mais pas sur; attendons
;o))
JJ
"michdenis" a écrit dans le message de
news:ufxU%
Bonjour DC,

Tu peux élaborer sur ce que tu entends par :

| j'aimerais qu'elle fonctionne en relatif


Salutations!


"DC" a écrit dans le message de news:
433c1793$0$1718$

Bonjour à tous.........................Bonjour Jacky,

j'ais une macro conçue par Jacky, aussi je ne sais plus comment le
joindre,

car le fil est terminé, j'espère qu'il comprendra ma démarche,

Cette macro fonctionne très bien en absolue,

Mais j'aimerais qu'elle fonctionne en relatif et je ne sais pas comment
faire pour la modifier, c'est ma faute, j' ai oublié de le préciser à
Jacky,


Dim x As Single
x = (Range("C1") / Range("A1") - 1) * 100
If x = 19.6 Then
[H1] = [c1] - [a1]
[I1] = ""
ElseIf x = 5.5 Then
[I1] = [c1] - [a1]
[H1] = ""
Else
[I1] = ""
[H1] = ""
MsgBox "TVA de " & x & "% inconnue"
End If
End Sub

Salutations!...........Merci d'avance................DC