Disont par exemple que la s=E9lection de d=E9part est : B7
Je souhaiterais que si =E0 partir de B7, la cellule est vide=20
alors rien du tout.
Si pas vide alors encadrement de B =E0 E de la meme ligne.
Et en boucle en passant =E0 la ligne suivante tant qu'une=20
info est trouv=E9e en colonne B (B8, puis B9 etc...)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Aucun besoin de macro pour faire ça ;-) Regarde la mise en forme conditionnelle. Cordialement Pascal
"DENIS" a écrit dans le message de news: 086301c50df9$cca30260$ Bonjour à tous,
Disont par exemple que la sélection de départ est : B7 Je souhaiterais que si à partir de B7, la cellule est vide alors rien du tout. Si pas vide alors encadrement de B à E de la meme ligne. Et en boucle en passant à la ligne suivante tant qu'une info est trouvée en colonne B (B8, puis B9 etc...)
Merci d'avance.
Bonjour
Aucun besoin de macro pour faire ça ;-)
Regarde la mise en forme conditionnelle.
Cordialement
Pascal
"DENIS" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 086301c50df9$cca30260$a601280a@phx.gbl...
Bonjour à tous,
Disont par exemple que la sélection de départ est : B7
Je souhaiterais que si à partir de B7, la cellule est vide
alors rien du tout.
Si pas vide alors encadrement de B à E de la meme ligne.
Et en boucle en passant à la ligne suivante tant qu'une
info est trouvée en colonne B (B8, puis B9 etc...)
Bonjour Aucun besoin de macro pour faire ça ;-) Regarde la mise en forme conditionnelle. Cordialement Pascal
"DENIS" a écrit dans le message de news: 086301c50df9$cca30260$ Bonjour à tous,
Disont par exemple que la sélection de départ est : B7 Je souhaiterais que si à partir de B7, la cellule est vide alors rien du tout. Si pas vide alors encadrement de B à E de la meme ligne. Et en boucle en passant à la ligne suivante tant qu'une info est trouvée en colonne B (B8, puis B9 etc...)
Merci d'avance.
Aurélien29
DENIS a couché sur son écran :
Bonjour à tous,
Disont par exemple que la sélection de départ est : B7 Je souhaiterais que si à partir de B7, la cellule est vide alors rien du tout. Si pas vide alors encadrement de B à E de la meme ligne. Et en boucle en passant à la ligne suivante tant qu'une info est trouvée en colonne B (B8, puis B9 etc...)
Merci d'avance.
Salut Denis
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 And Target.Count = 1 Then a = Target If "" <> Target Then a = Target.Row b = a While Range("B" & b) <> "" b = b + 1 Wend Range("B" & a & ":E" & b - 1).Select End If End If End Sub
En espérant avoir répondu a ta question
-- Aurélien29
DENIS a couché sur son écran :
Bonjour à tous,
Disont par exemple que la sélection de départ est : B7
Je souhaiterais que si à partir de B7, la cellule est vide
alors rien du tout.
Si pas vide alors encadrement de B à E de la meme ligne.
Et en boucle en passant à la ligne suivante tant qu'une
info est trouvée en colonne B (B8, puis B9 etc...)
Merci d'avance.
Salut Denis
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
a = Target
If "" <> Target Then
a = Target.Row
b = a
While Range("B" & b) <> ""
b = b + 1
Wend
Range("B" & a & ":E" & b - 1).Select
End If
End If
End Sub
Disont par exemple que la sélection de départ est : B7 Je souhaiterais que si à partir de B7, la cellule est vide alors rien du tout. Si pas vide alors encadrement de B à E de la meme ligne. Et en boucle en passant à la ligne suivante tant qu'une info est trouvée en colonne B (B8, puis B9 etc...)
Merci d'avance.
Salut Denis
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 And Target.Count = 1 Then a = Target If "" <> Target Then a = Target.Row b = a While Range("B" & b) <> "" b = b + 1 Wend Range("B" & a & ":E" & b - 1).Select End If End If End Sub
En espérant avoir répondu a ta question
-- Aurélien29
AV
Sub zzz() For i = 7 To [B65536].End(3).Row If Cells(i, "B") <> "" Then Range("B" & i & ":E" & i).Borders.LineStyle = xlContinuous Else: Range("B" & i & ":E" & i).Borders.LineStyle = xlNone 'pour effacer précédents End If Next End Sub
AV
Sub zzz()
For i = 7 To [B65536].End(3).Row
If Cells(i, "B") <> "" Then
Range("B" & i & ":E" & i).Borders.LineStyle = xlContinuous
Else: Range("B" & i & ":E" & i).Borders.LineStyle = xlNone 'pour effacer
précédents
End If
Next
End Sub
Sub zzz() For i = 7 To [B65536].End(3).Row If Cells(i, "B") <> "" Then Range("B" & i & ":E" & i).Borders.LineStyle = xlContinuous Else: Range("B" & i & ":E" & i).Borders.LineStyle = xlNone 'pour effacer précédents End If Next End Sub
AV
DENIS
Absolutly fabulous !!
Mille merci !
Denis
-----Message d'origine----- Sub zzz() For i = 7 To [B65536].End(3).Row If Cells(i, "B") <> "" Then Range("B" & i & ":E" & i).Borders.LineStyle = xlContinuous
-----Message d'origine-----
Sub zzz()
For i = 7 To [B65536].End(3).Row
If Cells(i, "B") <> "" Then
Range("B" & i & ":E" & i).Borders.LineStyle =
xlContinuous
-----Message d'origine----- Sub zzz() For i = 7 To [B65536].End(3).Row If Cells(i, "B") <> "" Then Range("B" & i & ":E" & i).Borders.LineStyle = xlContinuous
