Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, l es cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
Ellimac
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target <> "" Then Range(Target.Offset(, -1), Target.Offset(, 4)).BorderAround LineStyle:=xlContinuous End If End Sub
Camille
"JulieH" wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target <> "" Then
Range(Target.Offset(, -1), Target.Offset(, 4)).BorderAround
LineStyle:=xlContinuous
End If
End Sub
Camille
"JulieH" wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je
souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les
cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure
évenementielle.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target <> "" Then Range(Target.Offset(, -1), Target.Offset(, 4)).BorderAround LineStyle:=xlContinuous End If End Sub
Camille
"JulieH" wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
JulieH
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même
feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même
nom. Faut-il changer le nom ?
Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la
seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
JB
On 25 mai, 16:18, JulieH <jul...@discussions.microsoft.com> wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je
souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les
cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure
évenementielle.
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
JP25
Bonjour, essaie ceci
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, -1).Resize(1, 6).Borders.ColorIndex = 3 End If
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 1).Select End Sub JP25
"JulieH" a écrit dans le message de news:
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
Bonjour, essaie ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, -1).Resize(1, 6).Borders.ColorIndex = 3
End If
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row + 1, 1).Select
End Sub
JP25
"JulieH" <julieh@discussions.microsoft.com> a écrit dans le message de news:
ue3at0tnHHA.4188@TK2MSFTNGP02.phx.gbl...
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même
feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même
nom. Faut-il changer le nom ?
Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde
partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
JB
On 25 mai, 16:18, JulieH <jul...@discussions.microsoft.com> wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce
que je
souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B,
les
cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure
évenementielle.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, -1).Resize(1, 6).Borders.ColorIndex = 3 End If
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 1).Select End Sub JP25
"JulieH" a écrit dans le message de news:
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
JulieH
Tout est OK,
Merci à tous les 3 pour votre aide.
Julie
Bonjour, essaie ceci
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, -1).Resize(1, 6).Borders.ColorIndex = 3 End If
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 1).Select End Sub JP25
"JulieH" a écrit dans le message de news:
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
Tout est OK,
Merci à tous les 3 pour votre aide.
Julie
Bonjour, essaie ceci
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, -1).Resize(1, 6).Borders.ColorIndex = 3
End If
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row + 1, 1).Select
End Sub
JP25
"JulieH" <julieh@discussions.microsoft.com> a écrit dans le message de news:
ue3at0tnHHA.4188@TK2MSFTNGP02.phx.gbl...
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même
feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même
nom. Faut-il changer le nom ?
Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde
partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
JB
On 25 mai, 16:18, JulieH <jul...@discussions.microsoft.com> wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce
que je
souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B,
les
cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure
évenementielle.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, -1).Resize(1, 6).Borders.ColorIndex = 3 End If
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 1).Select End Sub JP25
"JulieH" a écrit dans le message de news:
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux portent le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B, les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procédure évenementielle.
Merci d'avance pour vos idées.
Julie
JB
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If
If Target.Column = 5 And Target.Count = 1 Then Cells(Target.Row + 1, 2).Select End If End Sub
JB
On 25 mai, 16:58, JulieH wrote:
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux porte nt le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B , les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procéd ure évenementielle.
Merci d'avance pour vos idées.
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
If Target.Column = 5 And Target.Count = 1 Then
Cells(Target.Row + 1, 2).Select
End If
End Sub
JB
On 25 mai, 16:58, JulieH <jul...@discussions.microsoft.com> wrote:
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même
feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux porte nt le même
nom. Faut-il changer le nom ?
Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la
seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3
End If
End Sub
JB
On 25 mai, 16:18, JulieH <jul...@discussions.microsoft.com> wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je
souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B , les
cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procéd ure
évenementielle.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If
If Target.Column = 5 And Target.Count = 1 Then Cells(Target.Row + 1, 2).Select End If End Sub
JB
On 25 mai, 16:58, JulieH wrote:
Re-bonjour,
Je pense qu'avec ce code je vais pouvoir me débrouiller.
En revanche, j'ai un petit souci car ce code est à mettre dans la même feuille que celle de ce matin (retour à la ligne suivante automatique).
Quand je crée une seconde procédure, il me dit que deux porte nt le même nom. Faut-il changer le nom ? Faut-il copier le code dans l'autre macro comme suivant :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub Cells(Target.Row + 1, 2).Select
If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
Dans ce cas, j'ai l'impression qu'elle ne prend pas en compte la seconde partie. Où peut-être ai-je une erreur ailleurs ?
Julie
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(0, 1).Resize(1, 6).Borders.ColorIndex = 3 End If End Sub
JB
On 25 mai, 16:18, JulieH wrote:
Bonjour à toutes et tous,
Nouvelle question dans le genre de celle de ce matin. Voilà ce que je souhaite :
Lorsque je saisis quelque chose dans une ligne de la colonne B , les cellules de A à F de la même ligne "s'encadrent" automatiquement.
Je ne souhaite pas utiliser de MEFC mais plutôt une procéd ure évenementielle.
