Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Maccro pour ajouter des valeurs dans une colone

Maccro pour ajouter des valeurs dans une colone

2 réponses
Avatar
Mousse
Bonjour a tous.

Je viend vers vous car je suis une super quiche avec les macros.
Je vais essayer de faire simple pour vous expliquer le but de ma visite ;-)

Mon tableau est en rapport avec le jeu Travian ci tout de foi vous
connessiez

1 petit tableau en 2 partie : echange / contre
en cellules C27 et E27 une liste de choix déroulant ( bois / terre / fer /
céréales )
en cellules B27 et D27 une zone vide pour renseigner une quantité

ex :
echange 250 [B27] bois [C27] / contre 300 [D27] terre [E27]

maintenant j'aimerais creer un bouton qui sert a valider ces données en les
ajoutant dans des colones:

bois (colone K)
terre (colone L)
fer (colone M]
céréales (colone N)

Soit dans mon exemple precedant ajouter (-250) dans la premiere cellule vide
de la colone K et (+300) dans la colone L.


J'espere que je me suis a peut pres bien exprimé.
En attendant une reponse je vous souhaite a tous une bonne continuation sur
ce NewsGroupe.
Signaler un problème avec ce contenu

2 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
FFO
Salut Mousse

Dans le code de ton bouton tu pourrais mettre quelque chose du style :

If Range("C27") = "bois" Then
Range("K65535").End(xlup).Offset(1,0) = "-" & Range("B27")
End If
If Range("C27") = "terre" Then
Range("L65535").End(xlup).Offset(1,0) = "-" & Range("B27")
End If
If Range("C27") = "fer" Then
Range("M65535").End(xlup).Offset(1,0) = "-" & Range("B27")
End If
If Range("E27") = "bois" Then
Range("K65535").End(xlup).Offset(1,0) = "+" & Range("D27")
End If
If Range("E27") = "terre" Then
Range("L65535").End(xlup).Offset(1,0) = "+" & Range("D27")
End If
If Range("E27") = "fer" Then
Range("M65535").End(xlup).Offset(1,0) = "+" & Range("D27")
End If

Celà devrait convenir
Dis moi !!!!
Avatar
Mousse
Merci beaucoup FFO
j'ai juste rajouter la partie Céréale et ça marche niquel.


Rien a redire ;-)
Bonne continuation sur ce newsgroup et merci encore pour le coup de main.


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

Salut Mousse

Dans le code de ton bouton tu pourrais mettre quelque chose du style :

If Range("C27") = "bois" Then
Range("K65535").End(xlup).Offset(1,0) = "-" & Range("B27")
End If
If Range("C27") = "terre" Then
Range("L65535").End(xlup).Offset(1,0) = "-" & Range("B27")
End If
If Range("C27") = "fer" Then
Range("M65535").End(xlup).Offset(1,0) = "-" & Range("B27")
End If
If Range("E27") = "bois" Then
Range("K65535").End(xlup).Offset(1,0) = "+" & Range("D27")
End If
If Range("E27") = "terre" Then
Range("L65535").End(xlup).Offset(1,0) = "+" & Range("D27")
End If
If Range("E27") = "fer" Then
Range("M65535").End(xlup).Offset(1,0) = "+" & Range("D27")
End If

Celà devrait convenir
Dis moi !!!!