Excel- instruction vba pour affichage absolu
Résolu
mod77
Messages postés
1284
Date d'inscription
Statut
Membre
Dernière intervention
-
mod77 Messages postés 1284 Date d'inscription Statut Membre Dernière intervention -
mod77 Messages postés 1284 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Excel- instruction vba pour affichage absolu
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
29 réponses
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.
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
Messages postés
6295
Date d'inscription
Statut
Membre
Dernière intervention
1 370
LE lien qu'il vient de te donner sert à poster ton fichier excel gratuitement en ligne. Suis les intructions et donne nous l'adresse que le site de fait passer à la fin
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
je cherche depuis tout a l'heure mais je trouve pas ce qui va pas.
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)
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)
Cett macro prend la première case vide de chaque colonne (K et L) en partant du haut de la feuille.
Elle les remplit ensuite avec ".","Bat", ou "salle".
Tu dois n'avoir rien en L et du texte en K (ou inversement). Fais en sorte qu'à côté de toutes tes cases remplies actuellement tu aies un "."
Si tu veux que tes "." apparraissent au même niveau que l'autre fait en sorte que ta première ligne vide en K soit aussi ta première ligne vide en L.
Exemple:
L1=.
K1=Salle
L2=Bat
K2=.
et non pas
L1=
K1=Salle
L2=Bat
K2=.
Elle les remplit ensuite avec ".","Bat", ou "salle".
Tu dois n'avoir rien en L et du texte en K (ou inversement). Fais en sorte qu'à côté de toutes tes cases remplies actuellement tu aies un "."
Si tu veux que tes "." apparraissent au même niveau que l'autre fait en sorte que ta première ligne vide en K soit aussi ta première ligne vide en L.
Exemple:
L1=.
K1=Salle
L2=Bat
K2=.
et non pas
L1=
K1=Salle
L2=Bat
K2=.
Bonjour,
Voici enfin la partie du projet que je voulais réaliser:
Les boutons en bleu sont les seuls actifs.
cpt lg:est un compteur de ligne pour démarrer
cpt cl: est les compteur de colonne pour démarrer
indente: permet de fixer le nombre décalage a effectuer
https://www.cjoint.com/?bunyg0bVJl
Il faut maintenant que je trouve un moyen d'initialiser ces compteurs dans le code VBA plutôt que sur la feuil2.
Si quelqu'un a une solution toute faite, je suis preneur.
En tout cas merci à tous pour votre aide et je sais que c'était pas facile!
Voici enfin la partie du projet que je voulais réaliser:
Les boutons en bleu sont les seuls actifs.
cpt lg:est un compteur de ligne pour démarrer
cpt cl: est les compteur de colonne pour démarrer
indente: permet de fixer le nombre décalage a effectuer
https://www.cjoint.com/?bunyg0bVJl
Il faut maintenant que je trouve un moyen d'initialiser ces compteurs dans le code VBA plutôt que sur la feuil2.
Si quelqu'un a une solution toute faite, je suis preneur.
En tout cas merci à tous pour votre aide et je sais que c'était pas facile!
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
Merci
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
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