Comment apliquet une macro a des cellules
Résolu
pyrus2047
Messages postés
153
Date d'inscription
Statut
Membre
Dernière intervention
-
pyrus2047 Messages postés 153 Date d'inscription Statut Membre Dernière intervention -
pyrus2047 Messages postés 153 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je souhaite Appliquer cette macro je n'arrive a faire fonctionner dans 1 ligne sur 3
et dans 1 colonne sur 4 a partire de la cellule "BT3"de la feuille 1
si vous avez une solution merci
Cordialement
je souhaite Appliquer cette macro je n'arrive a faire fonctionner dans 1 ligne sur 3
et dans 1 colonne sur 4 a partire de la cellule "BT3"de la feuille 1
si vous avez une solution merci
Cordialement
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range, c As Range
Dim ligne As Integer: Dim colonne As Integer
For ligne = 3 To 1094 Step 3
For colonne = 3 To 35 Step 4
Set isect = Intersect(Target, [BT3])
If Not isect Is Nothing Then
For Each c In Target.Cells
c.Offset(0, -24) = IIf(IsEmpty(c), ("Mr"), Empty)
c.Offset(0, -23) = IIf(IsEmpty(c), ("Durant"), Empty)
Next c
End If
Next colonne
Next ligne
End Sub
A voir également:
- Comment apliquet une macro a des cellules
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Verrouiller des cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
je souhaite que si BT3 et BU3 est vide que dans les cellules 24 et 23 colonnes en moin
soit rensegner par defaut da la premiere cellule et dans la suivante Mr Durant
dans une de 1094 lignes et 70 colonne
avec un pas de 1 linge sur 3 et de 1 colonne sur 4 a partire de BT3
Cordialement