Forum Casino Jackpots

[Grabuge]

Bonjour,

Je cherche à créer une macro afin d'inscrire les résultats d'addition d'un tableau dans une cellule.
Pour le premier résultat, aucun problème évidemment . Par exemple =U100 dans la cellule AA1

De quelle façon puis-je écrire un programme afin que lorsque la cellule AA1 est déjà remplie, excel aille placer
le deuxième résultat dans la cellule AB1 et ainsi de suite ?

Merci à tous.

[GEO_TT]

=SI(NON(ESTVIDE(AA1));AB1=...;" ")

[Grabuge]

Merci Géo !

[Grabuge]

Finalement, cela ne fonctionne pas et je n'arrive pas à rectifier.....
Il sort la valeur "FAUX".

Le résultat est calculé dans la cellule X11.

Je souhaite que ce résultat soit noté automatiquement dans la cellule AA11, puis AB11, puis AC11, etc......

J'entre la formule : si(non(estvide(AA11));AA11=$X$11;"")

En français : si la cellule AA11 est vide, y mettre le résultat de la cellule X11, si la cellule AA11 n'est pas vide, mettre le résultat de la cellule X11 dans la cellule AB11, etc....

Désolée d'être un

[-mezig-]

Je cherche à créer une macro afin d'inscrire les résultats d'addition d'un tableau dans une cellule

salut Grabuge,
formules et macros c pas pareil, une macro c du code, ça traite des milliers de cellules très vite avec seulement qlques lignes de code.
besoin de précisions :
- quel est le tableau à copier
- quelles sont les cellules de destination
(adresses précises stp)

[Grabuge]

Bonsoir Mezig

Ce sont celles que j'ai nommées.

Après un test, le résultat se trouve dans la cellule X11.
Je souhaite que ce résultat soit copier vers les cellules adjacentes à savoir AA11, AB11, AC11, etc..... et que, bien entendu,
cette copie reste stable après un nouveau test.

Merci beaucoup

[-mezig-]

d'accord j'ai compris,les différents résultats en X11 seront affichés à la suite sur la meme ligne,
la macro est simplissime :

Option Explicit
Public a As Integer
'nbresult= nombre de résultats que tu veux copier,met ce que tu veux :
Const nbresult = 100
Sub affichage()
'1)vérification cellules libres à partir de AA11 :
For a = 27 To a + nbresult
If Cells(11, a) = "" Then Exit For
Next a
'2) copie de X11 dans cellule vide sur ligne 11 :
Cells(11, a) = Cells(11, 24)
End Sub

tu peux rajouter ça pour effacer la ligne :

Sub raz()
'remise à zéro de la ligne des résultats AA11 à ...(met ce que tu veux )
Range("aa11:dz11").ClearContents
End Sub

tu vois c moins compliqué que les formules,2-3 instructions et le travail est fait...
Par contre je ne connais pas ton niveau et j'espère que tu sauras coller ça dans l'éditeur VB et faire partir la macro ?
sinon demande,c très simple.

ps. quelle drole d'idée d'afficher tes résultats horizontalement...

[Grabuge]

"ps. quelle drole d'idée d'afficher tes résultats horizontalement... "

En effet ! Je n'ai pas voulu corsé la chose

Merci Mezig pour tes explications, je te dirai demain si j'arrive ou non à copier le code dans VBA.

Bonne soirée

[-mezig-]

Hohé du Grabuge !
qué passa
t'as tu collé ta macro au bon endroit ?
Sinon on peut faire + simple,façon sim d'Arte, avec un bouton pour actionner la macro et un pour tout effacer.
j'ai pensé aussi :
ton test (dont le résultat s'affiche en X11) s'il n'est pas trop compliqué autant l'incorporer dans la macro "Affichage", ainsi en appuyant sur le bouton tu feras le calcul du test et l'affichage.

>> Explique ton test et je te dirai si c'est faisable ou s'il faut convoquer le Maitre de l'Art...

[Grabuge]

Bonjour Mezig

Je t'ai envoyé un MP pour te remercier.........; mais apparemment, celui-ci s'est perdu dans les limbes d'internet.

J'ai réussi à coller le code et j'y ai associé un bouton de commande. Ca fonctionne super !

Merci encore à toi