Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

modif d un code visual basic en macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion raym1313
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

raym1313

XLDnaute Occasionnel
bonsoir

cette apres midi j ai demande de l aide pour
afficher une liste de nom sur 2 colonnes
suivant 2 variables definis en N6 et 06

( voir la discution MODIF POUR SEPARER UNE COLONNE EN 2 )

J AI recu rapidement une réponse de PAPOU-NET
QUI m'a proposé ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("N6:O6"), Target) Is Nothing Then Exit Sub
Range("H:I").ClearContents
For lg = 1 To Range("N6")
Cells(lg, 8) = Cells(lg, 1)
Next
For lg = 1 To Range("O6")
Cells(lg, 9) = Cells(lg + Range("N6"), 1)
Next
End Sub


ceci fonctionne parfaitement

mais je prefererai que ce soit une macro du genre

sub NOMCLUB()
' NOMCLUB macro
' macro enregistrée le xxxx

cela me permettrait dans ma feuille d'inserer un bouton et cet affichage sur 2 colonnes s'executerait lors du clic sur le bouton

pouvez vous faire quelque chose


merci d avance
merci d avance PAPOU-NET si tu lis ce message

amicalement

raym1313
 
Trier par date Trier par votes
Re : modif d un code visual basic en macro

raym1313 à dit:
If Intersect(Range("N6:O6"), Target) Is Nothing Then Exit Sub
Range("H:I").ClearContents
For lg = 1 To Range("N6")
Cells(lg, 8) = Cells(lg, 1)
Next
For lg = 1 To Range("O6")
Cells(lg, 9) = Cells(lg + Range("N6"), 1)
Next
raym1313
Cliquez pour agrandir...
ensuite tu mets devant ce code ton sub macro()
et a la fin end sub
test je ne suis pas sur quecela fonctionne car je n'ai pas tester intersect sans la specification du byval target as range du sub worksheets change
A+
Ps bonsoir a papou net
 
Vote positif 0 Vote négatif
Re : modif d un code visual basic en macro

fhoest à dit:
ensuite tu mets devant ce code ton sub macro()
et a la fin end sub
test je ne suis pas sur quecela fonctionne car je n'ai pas tester intersect sans la specification du byval target as range du sub worksheets change
A+
Ps bonsoir a papou net
Cliquez pour agrandir...

Bonsoir fhoest,

Non, ça ne fonctionnera pas tel quel au sein d'une macro insérée dans un module de code, car il faudra alors faire référence à la feuille.

Pour info, j'ai déjà répondu dans le fil initial de raymond traitant de ce sujet.

Je lui ai également conseillé de rester sur ce fil initial.

Cordialement.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
263
Nicolas JACQUIN
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
461
Gégé-45550
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
O
  • Résolu(e)
XL 2016 Faire apparaitre un tableau en fonction d'un choix déroulant
Réponses
2
Affichages
650
onicow
O
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
S
  • Question Question
XL 2010 Intégrer une conversion date xx en 20 xx dans macro vba excel
Réponses
9
Affichages
1 K
Deadpool_CC
P
  • Question Question
XL 2016 Macro, Copier coller des cellules fusionnées en fonction d'un texte
Réponses
1
Affichages
926
Deadpool_CC
S
  • Question Question
Microsoft 365 Ajout d'une en-tete et pied de page via macro
Réponses
4
Affichages
1 K
saggigo
S
  • Résolu(e)
XL 2019 Qu'est-ce qui ne va pas dans le code ... Colorer celulle B en fond vert si "COMPL" en C si date en D, B en fond jaune...
Réponses
1
Affichages
1 K
anthoYS
S
  • Question Question
XL 2010 Séparer macro en 2
Réponses
2
Affichages
826
samfau
S
K
  • Question Question
Microsoft 365 Appliquer un script à tous les classeur ouvert
Réponses
9
Affichages
1 K
Hasco
U
  • Question Question
Autres [RÉSOLU] Code macro à modifier ou pas
Réponses
3
Affichages
1 K
ChTi160
J
  • Résolu(e)
XL 2016 VBA - réplication code liste
Réponses
7
Affichages
1 K
soan
S
C
  • Question Question
Autres Modif sur macro appli J.Boisgontier...
Réponses
2
Affichages
929
Christian0258
C
S
  • Résolu(e)
Microsoft 365 automatiser macro pour copier/coller des données d´un classeur à un autre et sauver à chaque fois le classeur rempli
Réponses
8
Affichages
5 K
sevenkingdom
S
W
  • Question Question
ma Macro en cours de fonctionnement saute vers une autre Macro (Worksheet_Change)
Réponses
5
Affichages
1 K
Dranreb
K
  • Question Question
XL 2016 Comment fusionner 2 Private Sub Worksheet_Change(ByVal Target As Range) ?
Réponses
3
Affichages
2 K
Kmi
K
M
  • Question Question
Microsoft 365 [Résolu] Separer Nom, Ligne d'adresse, Cp et Ville en VBA
2 3 4
Réponses
46
Affichages
7 K
patricktoulon
F
  • Question Question
XL 2013 copier/coller d une selection multiple
2
Réponses
21
Affichages
6 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…