formule ou macros???

  • Initiateur de la discussion Initiateur de la discussion aiz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

aiz

Guest
Bonjour,

jai une base de données de 5249 lignes.

de C2:C5249 j'ai des références d'articles.
je les ais classé par ordre décroissant afin de faire apparaitre les doublons,triplons,quadruplons...

En collonnes AK on attribu un pourcentage a chaque référence.
Pour les doublons seul une des deux cellules de la collonne AK est pleine
Pour les triplons deux sur 3
Pour les quadruplons 3 sur 4
...

Je voudrais pour la cellule vide qui ne contient rien que excel fasse 100- le pourcentage de la référence similaire(l'autre doublons)
C AK
EX 2 azerty 40
3 azerty vide(excel calcul 100-40)

Je veut que 60 soit inscrit en automatique pour tout les doublons.

Je pense être plus clair que hier

MERCI DE VOTRE AIDE
 
Bonjour Aiz

en AL3 mettre :

=SI(ET(C3=C2;AK3='');100-AK2;AK3)

et tirer cette formule vers le bas
tu auras ainsi les valeurs de cellules adaptées

Invonvénient : une colonne supplémentaire est nécessaire.

Attendons les VBA(fans) qui vont avoir une solution plus simple

@+GD
 
Bonjour aiz, Gérard,

Est-ce quelque chose comme cela que tu cherches ?


Abel. [file name=Exemple_aiz.zip size=10426]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_aiz.zip[/file]

Edition :
Efface les informations en rouge avant d'actionner la macro.

Message édité par: Abel, à: 24/01/2006 13:34
 

Pièces jointes

bonjour tous
j'avais cette macro (moins elegante mais adaptée)

Sub pourcent()
colak = Range('AK1').Column
For Each c In Range('C3:C5249')
tot = 0
If c = Cells(c.Row - 1, c.Column) And Cells(c.Row, colak) = '' Then
For n = 1 To 10
If Cells(c.Row - n, c.Column) = c Then
tot = tot + Cells(c.Row - n, colak)
Else
Cells(c.Row, colak) = 100 - tot
Exit For
End If
Next
End If
Next
End Sub
 
Re,

Oui et c'est ainsi que tu l'avais énoncé.

Les informations sont triées et la cellule vide se trouve sur le dernier de 'doublons'.

Si ce n'est pas le cas, il faut que je revoie le code.

Qu'elles sont les situations que l'on peut rencontrer ?

Abel.
 
Bonsoir à tous
Salut Abel

je n'avais pas 'imprimé' qu'il fallait faire la somme des pourcentage pour la déduire de 100. Je n'avais retranché que la dernière valeur avant le 'vide'

J'essaye de réparer avec le fichier joint ... 😛

@+GD [file name=AIZ2.zip size=1779]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AIZ2.zip[/file]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

K
Réponses
5
Affichages
2 K
kondabalo
K
T
Réponses
0
Affichages
2 K
tibofo
T
B
Réponses
3
Affichages
1 K
Baptiste
B
Retour