une macro pour automatiser les fonction si

[arnold]

Bonjour,

Je cherche une macro qui me permette de créer une formule conditionelle sans que la formule soit inscrite dans chaque cellule je veut l'activé par bouton au lieu de la copier sur toutes les cellules concerné.

Merci de votre aide...

 

[Jacques87]

Bonjour

Une condition a pour écriture en VBA

If ... Then
....
Else ...
End If

c'est à dire
Si la condition est vérifiée, alors ceci sinon cela, fin de test

Il te suffit de créer une macro sur ce modèle, adaptée à ton problème et de l'appeler par un bouton

Bon courage

 

[arnold]

merci pour ton explication mais comment l'appliquer a mes 5000 cellules????

 

[Jacques87]

Re,

il y a plusieurs solutions selon l'endroit où se trouvent tes 5000 cellules
soit elles se trouvent dans une colonne
soit elles se trouvent dans une plage
soit elles sont dans des plages non contiguës

mais dans tous les cas de figure il faudra les sélectionner au préalable

si tu veux que je te donne une solution plus précise envoie moi ton fichier

A+

 

[ARNOLD]

Voila les formules ce trouve dans les collonnes de AM:AS

merci

 

[Jacques87]

alors tu peux écrire

Dim plage As range
Plage = Range('AM1:AS5000).Select
With plage
If ...... Then
Else ......
End If

bien sur, à toi d'adapter la plage à ta configuration, ici j'ai supposé que tes cellules étaient dans le tableau AM1:AS5000

Voila

 

[ARNOLD]

je ne comprend pas trop le language VBA si tu pouvais être plus clair...

merci

 

[Jacques87]

Désolé mais je ne peux pas être plus clair sans ton exemple
Je t'ai précisé la démarche, c'est à dire les paroles, maintenant pour les mettre en musique faudrait-il que je puisse avoir les partitions

A+

 

[arnold]

voila mon exemple

 

[arnold]

avec le fichier c mieux... [file name=exemple_20060227112357.zip size=38982]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemple_20060227112357.zip[/file]

 

[Jacques87]

je reprends le code que je t'ai donné en l'adaptant à ta situation, bien que ne sachant pas qu'elles sont les conditions et résultats de ton test, il faudra que tu ajoutes cela


Dim plage As Range, cell As Range
Dim derlign As Integer

derlign = Range('AM65536').End(xlUp).Row
Range('AM3:AS' & derlign).Select

For Each cell In Selection
If cell.Value = '0' Then
cell.Interior.ColorIndex = 3 'couleur rouge
Else:
cell.Interior.ColorIndex = 4 ' couleur verte
End If
Next

dans cet exemple le test consiste à regarder si le contenu des cellules est égal ou non à 0
Si c'est le cas la cellule se colorie en rouge, sinon en vert

Maintenant pour créer et faire fonctionner cette macro, il te faut d'abord créer un bouton (barre d'outils VBA) et lui coller cette macro en cliquant droit sur le bouton créer et en collant entre les deux lignes
Private sub CommandButton1_Click()

End sub
qui apparaîtront dès que tu auras cloqué droit sur le bouton

Voila
A ta disposition

 

[ARNOLD]

je croit ke je me suis mal exprimé

en fait ce que je voudrais c ke les formulEs qui ce trouve en am3, an3 ao3... qui sont toutes différentes s'applique à toutes les cellulles concerné en automatiques par une macros activé par un bouton pour chaque formule .

je sais si c clair...

merci

 

[XlsPowa]

Salut, j'ai lu vos posts et j'ai aussi une macro à créer dans le même style if then else etc...

Voila en fait il faut que je fasse la somme de chiffres inscrits dans une colonne si et seulement si la condition est vérifiée.

Ex les cellules A1,A2, A3....An portent des numéros distincts mais parfois récurrents.

Les cellules B1, B2, B'..Bn, portent des valeurs chiffrées.

Et bien ; SI A1=A2 alors Somme de B1+B2
De là même manière SI A1=A2=A3=An alors Somme B1+B2+B3+Bn

Le résultat (la somme) s'inscrivant sur la dernière ligne des lignes trouvées

Voila

 

[Jacques87]

Arnold, pourtant nous ne sommes qu'en début de semaine, mais je ne comprends pas ce que tu veux en disant :

s'applique à toutes les cellulles concerné en automatiques par une macros activé par un bouton pour chaque formule .

donne moi un ou deux exemples de ce que tu veux

 

[Charly2]

Bonsoir Arnold, Jacques87 et XlsPowa, bonsoir à toutes et à tous

Arnold, je te laisse regarder et tester le fichier joint pour voir s'il correspond à ta demande...

XlsPowa, je pense qu'il serait préférable que tu ouvres un nouveau fil de discussion sur ta demande personnelle, ainsi tu augmentera tes chances d'avoir des réponses (à moins que le fichier joint t'inspire)

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

EDITION : 1er fichier trop gros :whistle:

A+

Message édité par: Charly2, à: 27/02/2006 20:11