Afficher texte si cellule à côté remplie
Jujusyl72 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention - 9 oct. 2018 à 10:48
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention - 9 oct. 2018 à 10:48
A voir également:
- Excel afficher texte d'une autre cellule
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
4 réponses
Merci, ça je sais faire, du coup j'aurais voulu une macro.
Actuellement j'en ai une qui me remplit les cellules de C6àC32, si elles sont vides, la mention à faire vient, et réapparait lorsque l'on efface le contenu.
Actuellement j'en ai une qui me remplit les cellules de C6àC32, si elles sont vides, la mention à faire vient, et réapparait lorsque l'on efface le contenu.
Bonjour,
Voir ici pour faire une boucle sur les cellules concernées
https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
allez sur la feuille concernée faire Alt F11 pour accèder à l'éditeur et coller ceci:
Voir ici pour faire une boucle sur les cellules concernées
https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
allez sur la feuille concernée faire Alt F11 pour accèder à l'éditeur et coller ceci:
Option Explicit
'https://www.developpez.net/forums/d605223/logiciels/microsoft-office/excel/contribuez/boucles-parcourir-colonne-ligne-plage-donnees-2-methodes/
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6:C32")) Is Nothing Then
For_X_to_Next_Ligne
End If
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1")
NoCol = 3 'lecture de la colonne C
For NoLig = 6 To 32 'Split(FL1.UsedRange.Address, "$")(4)'dernière ligne
Var = FL1.Cells(NoLig, NoCol)
If Var = "" Then
FL1.Cells(NoLig, NoCol + 1) = ""
Else
FL1.Cells(NoLig, NoCol + 1) = "A faire"
End If
Next
Set FL1 = Nothing
End Sub
bien sur en mettant le code dans ThisWorkbook comme ceci:
mais il ne se déclenchera qu'à l'ouverture!
a toi de voir
@+
Option Explicit
Private Sub Workbook_Open()
For_X_to_Next_Ligne
End Sub
Sub For_X_to_Next_Ligne()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long, Var As Variant
Set FL1 = Worksheets("Feuil1")
NoCol = 3 'lecture de la colonne C
For NoLig = 6 To 32 'Split(FL1.UsedRange.Address, "$")(4)'dernière ligne
Var = FL1.Cells(NoLig, NoCol)
If Var = "" Then
FL1.Cells(NoLig, NoCol + 1) = ""
Else
FL1.Cells(NoLig, NoCol + 1) = "A faire"
End If
Next
Set FL1 = Nothing
End Sub
mais il ne se déclenchera qu'à l'ouverture!
a toi de voir
@+
