Maccro pour ajouter des valeurs dans une colone

Le
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #17999931
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 !!!!
Mousse
Le #18000781
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"
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 !!!!


Publicité
Poster une réponse
Anonyme