Macro
ludiludi87
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un fichier excel de ce type (cf photo) avec ce code.
Private Sub Worksheet_Change(ByVal Target As Range)
'concerne toute la feuille quand A dans une cellule (cas de ce modèle)
If Target.Cells.Value = "A" Then
's'il faut limiter la zone, écrire par exemple pour un champ B2:Z100
'If Target column >1 and Target column <27 and Target Row >1 and Target Row <101
'1° X décalage > même ligne et 5 colonnes
1. Comment faire pour que X se mette, toutes les 4 colonnes à partir du A, jusqu'à l'infini / temps ?
2. Est-il possible par exemple, pour la semaine 7, sur une page Word, qu'il s'inscrive dans un paragraphe le nom des personnes qui ont un "X", et dans un autre paragraphe le nom des personnes qui ont un "I", qu'il ne s'inscrive rien s'ils n'y en a pas ? Est-ce que l'on peut créer 1 page word par semaine, que l'on édite quand on le souhaite ?
Merci beaucoup pour vos réponses.
J'ai un fichier excel de ce type (cf photo) avec ce code.
Private Sub Worksheet_Change(ByVal Target As Range)
'concerne toute la feuille quand A dans une cellule (cas de ce modèle)
If Target.Cells.Value = "A" Then
's'il faut limiter la zone, écrire par exemple pour un champ B2:Z100
'If Target column >1 and Target column <27 and Target Row >1 and Target Row <101
'1° X décalage > même ligne et 5 colonnes
Target.Cells.Offset(0, 6).Value = "P"
'1° X décalage > même ligne et 10 colonnes
Target.Cells.Offset(0, 11).Value = "P"
'1° X décalage > même ligne et 13 colonnes
Target.Cells.Offset(0, 16).Value = "I"
'1° X décalage > même ligne et 13 colonnes
Target.Cells.Offset(0, 30).Value = "I"
End If
End Sub
1. Comment faire pour que X se mette, toutes les 4 colonnes à partir du A, jusqu'à l'infini / temps ?
2. Est-il possible par exemple, pour la semaine 7, sur une page Word, qu'il s'inscrive dans un paragraphe le nom des personnes qui ont un "X", et dans un autre paragraphe le nom des personnes qui ont un "I", qu'il ne s'inscrive rien s'ils n'y en a pas ? Est-ce que l'on peut créer 1 page word par semaine, que l'on édite quand on le souhaite ?
Merci beaucoup pour vos réponses.
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
2 réponses
Par contre, comment j'intègre ce code à mon code existant ?
Tu peux faure un appel à la pocedure OK depuis n'importe quelle procedure située dans le module de la feillle à traiter.
Les valeurs des constantes en début de code sont à modifier selon ta configuretion.
Procedure Machin()
....
Call OK
....
End Sub
Cdmmt
Tu peux faure un appel à la pocedure OK depuis n'importe quelle procedure située dans le module de la feillle à traiter.
Les valeurs des constantes en début de code sont à modifier selon ta configuretion.
Procedure Machin()
....
Call OK
....
End Sub
Cdmmt
Merci pour cette recherche. Par contre, comment j'intègre ce code à mon code existant ?
Merci
Cordialement