Re : Remplir plusieurs cellules si un texte est présent ailleurs
Sûr que comme j'y connais pas gd chose, voire rien, il ne m'est pas difficile d'être pénible, hihi... Je veux toujours la rolls, moi... c pas possible !
Bisous pour la peine à vous tous... J'ai gardé tous vos codes en les "commentant" dans mon fichier, car ils m'aident à comprendre un peu. Enfin, j'ai bien dit : un peu.
Si j'essaie de comprendre le code de Kjin
Private Sub Worksheet_Change(ByVal Target As Range)
' KJIN
https://www.excel-downloads.com/thr...ules-si-un-texte-est-present-ailleurs.169677/
If Target.Row = 4 And Target.Column > 6 Then
With Cells(6, Target.Column + 1).Resize(17, 1)
If UCase(Target.Text) = "PAS DE DÉLIB" Then
.Value = "x"
Else
.ClearContents
End If
End With
End If
End Sub
Ca veut il dire entre autres :
If UCase(Target.Text) = "PAS DE DÉLIB" Then
.Value = "x"
Si dans la cellule, y a "pas de délib" alors mettre x
Et dans quelle cellule est déterminé par le début : With Cells(6, Target.Column + 1).Resize(17, 1) à savoir la colonne immédiatement située après la cellule où il y a "pas de délib" soit cellule + 1 ?
MAIS à quoi sert le resize(17,1) ? LA TAILLE du x ?
Quant à la condition
If Target.Row = 4 And Target.Column > 6 Then
Autant je comprends le target.row 4 (4ème ligne), je suis pas sûre du target.column 6 (ca veut dire si il y a qqhse à partir de colonne 6 ?)
Et si j'ai tout compris, Kjin carrément pour gérer le fait qu'il y ait rien dans la case, dit : si "pas de délib" = croix, sinon rien.. au lieu de détailler "délibération" et "rien" ?
Et UCase, comment on sait ce que c'est vu que c'est pas déclaré ?
Ouh la la, Bribri qui essaie de comprendre, ca fait mal !!
Est ce que j'ai compris des choses ?