OVH Cloud OVH Cloud

Macro

2 réponses
Avatar
Monmailpro
Bjr

Mon problème est le suivant :

- j'importe régulièrement sous XL un tableau dont la longueur change à
chaque fois.
- je veux faire la différence entre les 2 dernières colonnes de mon tableau
(ligne à ligne)
- comment est-ce-que je recopie automatiquement ma formule afin qu'elle ne
s'apllique que sur la longueur du tableau, et pas sur un nombre de lignes
pré-défini ? Car je ne veux pas avoir des cellules avec un résultat nul ou
en erreur quand je n'ai aucune donnée à calculer.

Merci d'avance

2 réponses

Avatar
garnote
Salut,

Une suggestion :
Tu pourrais associer une touche de raccourci à cette macro
et l'appeler quand tes données sont sélectionnées.

Sub Différence_Deux_Dernières_Colonnes()
Set ici = Selection
NC = ici.Columns.Count
NL = ici.Rows.Count
If NC >= 2 Then
For i = 1 To NL
ici(i, NC + 1) = ici(i, NC) - ici(i, NC - 1)
Next i
End If
End Sub

Serge

"Monmailpro" a écrit dans le message de news:
OkVTn3$
Bjr

Mon problème est le suivant :

- j'importe régulièrement sous XL un tableau dont la longueur change à
chaque fois.
- je veux faire la différence entre les 2 dernières colonnes de mon
tableau

(ligne à ligne)
- comment est-ce-que je recopie automatiquement ma formule afin qu'elle ne
s'apllique que sur la longueur du tableau, et pas sur un nombre de lignes
pré-défini ? Car je ne veux pas avoir des cellules avec un résultat nul ou
en erreur quand je n'ai aucune donnée à calculer.

Merci d'avance




Avatar
Monmailpro
Je viens de tester ta macro et elle fonctionne. Néanmoins, elle ne répond
pas à mon attente, car mon idée est de recopier mes 2 dernières colonnes sur
une autre feuille, puis de faire la différence automatiquement sur chaque
ligne ; le tout en 100% automatique.

"garnote" a écrit dans le message de news:
1PWac.74181$
Salut,

Une suggestion :
Tu pourrais associer une touche de raccourci à cette macro
et l'appeler quand tes données sont sélectionnées.

Sub Différence_Deux_Dernières_Colonnes()
Set ici = Selection
NC = ici.Columns.Count
NL = ici.Rows.Count
If NC >= 2 Then
For i = 1 To NL
ici(i, NC + 1) = ici(i, NC) - ici(i, NC - 1)
Next i
End If
End Sub

Serge

"Monmailpro" a écrit dans le message de news:
OkVTn3$
Bjr

Mon problème est le suivant :

- j'importe régulièrement sous XL un tableau dont la longueur change à
chaque fois.
- je veux faire la différence entre les 2 dernières colonnes de mon
tableau

(ligne à ligne)
- comment est-ce-que je recopie automatiquement ma formule afin qu'elle
ne


s'apllique que sur la longueur du tableau, et pas sur un nombre de
lignes


pré-défini ? Car je ne veux pas avoir des cellules avec un résultat nul
ou


en erreur quand je n'ai aucune donnée à calculer.

Merci d'avance