excel- instruction vba pour affichage absolu Résolu

Question

Bonjour,

Quelqu'un peut-il m'écrire l'instruction en VBA pour afficher un mot aux coordonnées que je veux.
Ces coordonnées sont dans des cellules connues.
je pensais que ceci marcherai mais c'est pas le cas:

Range(X,Y).value = "monmot"

SVP, aidez moi à avancer!
Merci

Farfadet88 · Answer

[a1]="monmot"

mod77 · Answer

Merci à vous pour votre réponse mais je ne comprends pas la réponse?
C'est quoi [A1]?

merci

Farfadet88 · Answer

[a1]= signifie "la valeur en A1 est égale à..."

Mike-31 · Answer

Salut,

Plus exactement [A1] est l'adresse de la cellule, on peut l'écrire de plusieurs façon suivant le code utilisé
Dans les trois codes ci-dessous, je sélectionne la cellule mais on j'aurai pu faire référence à sa valeur dans ce cas il faut remplacer .Select par = . . . . . 

Cells(1, 1).Select

Range("A1").Select

[A1].Select

mod77 · Answer

Oui, mais en fait j'aimerai afficher "monmot" à la ligne dont le numéro est dans la cellule [A1] par exemple
et le numéro de colonne dans la cellule [B1] par exemple.
Ainsi je pourrais changer comme je veux les coordonnées.

Merci de votre aide

pijaku · Answer

Bonjour,
Autres possibilités (j'ai pris les cellules K1, K2 et K3 en exemple)

[K1] = "monmot" 'écris monmot en K1
Cells(2, 11) = "monmot" 'écris monmot en K2
Range("K3") = "monmot" 'écris monmot en K3

mod77 · Answer

Merci Mike 31 j'ai posté en même temps que vous, alors j'avais pas vu la réponse.

Je vais essayer cells, j'espere que je peux changer les coordonnées par celles d'une cellule.

Merci

Farfadet88 · Answer

Je crois avoir compris ce que tu demandes


Sub Bouton1_QuandClic()

Dim a As Integer
a = Range("a1").Value
b = Range("b1").Value

Cells(a, b) = "Mon mot"

End Sub

mod77 · Answer

Oui c'est ça !
Tompols m'avait aussi compris.
Je suis désolé, pourtant j'ai essayé d'être clair.
Mes lignes d'instruction bugg alors je vais reprendre votre exemple.

Merci

mod77 · Answer

J'ai essayé de mixer un peu vos instructions mais ça bugg!
l'un de vous peut-il me dire pourquoi SVP:

Private Sub CommandButton2_Click()
Cells(lg, 11) = "monmot"
lg = lg + 1
End Sub

la colonne ne change pas pour ce bouton donc je l'ai laissé à  K.

Merci

Farfadet88 · Answer

Pourquoi as tu mixé? qu'est ce qui ne marchait pas avec nos instructions?

mod77 · Answer

En fait , j'étais passé par le contenu des cellules pour les coordonnées, parce que je ne savais pas comment faire pour avoir des variable valable pour toute l'application. Mais dans le bouquin que j'ai il est marqué qu'il suffit de déclarer ses variable dans la zone "déclaration" en haut à droite de la fenêtre VB alors j'ai tenté ..mais ça plante. alors je vais faire marche arriere.

Merci

mod77 · Answer

Farfadet 88, l'instruction
 Cells(a, b) = "Mon mot"  fait que ça ne fonctionne pas .

Je ne voit pas pourquoi, je la retourne dans tous les sens  mais rien a faire ...
vois-tu pourquoi SVP?

tompols · Answer

Re,
"Oui, mais en fait j'aimerai afficher "monmot" à la ligne dont le numéro est dans la cellule [A1] par exemple
et le numéro de colonne dans la cellule [B1] par exemple.
Ainsi je pourrais changer comme je veux les coordonnées. "
=> résolu aux posts 8 et 10 !
Si tu as un autre souci, merci de l'expliquer clairement ! on est là pour aider mais il faudrait qu'on comprenne ce que tu veux faire !

Farfadet88 · Answer

n'oublie pas de mettre tout

Sub Bouton1_QuandClic() 

Dim a As Integer 
a = Range("a1").Value 
b = Range("b1").Value 

Cells(a, b) = "Mon mot" 

End Sub


et pas seulement Cells(a, b) = "Mon mot"

mod77 · Answer

Ok, j'explique:

Je veux lorsque je clic sur un "bouton de commande" le mot "Bat" s'affiche dans ma colonne "K" en ligne 1 par exemple.
Mais lorsque j'appuis encore sur ce bouton de commande le mot "Bat" doit s'afficher toujours en colonne "K" mais sur une ligne dont le numéro évolue aussi en fonction de l'appui sur un autre bouton.
C'est pour ça que pour l'instant j'essaye de faire évoluer la ligne à partir de la valeur d'une cellule, après j'adapterai.

Merci de votre compréhension et de votre aide.

tompols · Answer

re,
tjs pas clair : "en fonction de l'appui sur un autre bouton" => tu peux expliquer ce passage là stp ? genre si on apuie sur le bouton 2, on augmente d'une ligne.... ou autre mais "en fonction de" ne veut rien dire.....

mod77 · Answer

Alors, si je clic sur le bouton 2 j'affiche le mot "salle" en colonne "L" sur la ligne en-dessous de laquelle j'ai affiché  le mot "Bat".
Ainsi, si je cllic sur le bouton 1 le mot "Bat" devra s'afficher toujours en colonne "K" mais à la ligne en-dessous de laquelle le mot "Salle" s'est affiché.

Ainsi, seule le numéro de ligne évolu.
Tout est dit maintenant, mais je pensais que ça compliquerai les choses de tout écrire en une seule fois.

Merci

Farfadet88 · Answer

Et les valeurs présentes en A et B? Elles ne servent plus à rien?

tompols · Answer

re,
bon dsl mais jme pose encore plein de questions :
-comment determine-t-on la premiere position pour le mot "Bat" ?
- les colonnes K & L ne contiennent-elles que ces mots ?
un petit fichier exemple posé ici pourrait surement aider....

mod77 · Answer

En fait, en colonne "K" il n'y aura que des nom de bâtiments (Bat1, Bat2,..., Bat5).
En colonne "L" il n'y aura que des noms de salle (salle1, Salle2, ..., salle 10 mais ajout possible).
C'est pourquoi je limite pour l'instant l'étendue de ma feuille.

La position initiale du mot "Bat" est sous le titre de colonne par exemple "K1"

Merci

Je regarde ton lien maintenant.

Farfadet88 · Answer

Sub Bouton1_QuandClic()
Range("l65536").End(xlUp).Offset(1, 0) = "Bat"
Range("k65536").End(xlUp).Offset(1, 0) = "."
End Sub



Sub Bouton1_QuandClic()
Range("l65536").End(xlUp).Offset(1, 0) = "."
Range("k65536").End(xlUp).Offset(1, 0) = "Salle"
End Sub

mod77 · Answer

J'avais pas compris!

Voir feuill2:
https://www.cjoint.com/?btqNfnHcWD

cpt lg est un compteur de ligne si je passe par une cellule pour les coordonnées
cpt cl est un compteur de colonne si je passe par une cellule 

le bouton "droite" est utile si je veux encore décaler vers la droite (colonne "M") l'affichage d'une salle.

Pour l'instant il vaut mieux avancer par étape, je pense.

Je clic sur un bouton bat -> j'affiche en K4
Je reclic sur un bouton bat  -> j'affiche en K5
Je clic sur Salle  -> j'affiche en L6
Je reclic sur un bouton salle -> j'affiche en L7
Je clic sur un bouton Bat  -> j'affiche en K8

Ceci est un exemple de suite!

merci

Farfadet88 · Answer

applique donc mes macros à tes deux boutons!

mod77 · Answer

Le pb est que ta macro ne marche que lorsque j'exécute le code mais quand je change la valeur de la cellule A1 puis que je clic sur Bat 2 rien ne se passe.

je cherche depuis tout a l'heure mais je trouve pas ce qui va pas.

Farfadet88 · Answer

Il y a deux macros différentes:
applique a ton bouton 1

Range("l65536").End(xlUp).Offset(1, 0) = "Bat" 
Range("k65536").End(xlUp).Offset(1, 0) = "." 

et a ton bouton 2 met


Range("l65536").End(xlUp).Offset(1, 0) = "." 
Range("k65536").End(xlUp).Offset(1, 0) = "Salle" 

(ca marche sur mon pc)

mod77 · Answer

Excuse moi, mais pour l'affichage dans les colonnes c'est inversé mais ça marche. Mais dès que tu clic sur l'autre bouton le 2 par exemple si tu as commencé par le 1, alors l'affichage est décalé de 1 pour l'un et de 2 pour l'autre. Je ne comprends pas vraiment comment?

Merci

mod77 · Answer

Peux-tu m'expliquer comment est fixé l'affichage de départ pour un bouton STP?

Merci

mod77 · Answer

Me revoila,

Ce que je veux dire c'est que plutôt que mettre mes compteurs cpt lg=4, cpt cl=11 et indente=0 sur ma feuille de travail (feuil2); j'aimerai qu'elles soient placées de sorte que je ne les vois pas.
Elles seront donc initialisée aux valeurs citées mais dans le corps des instructions par exemple si c'est possible.

Je m'y penche maintenant.

Merci

Excel- instruction vba pour affichage absolu - Page 2

Newsletters