Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est pas
toute la ligne mais seulement la ligne active en colonnes A:J qui doit
se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lSteph
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours
si evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne
doit fonctionner que si la cellule active est en colonnes A:J et ce
n'est pas toute la ligne mais seulement la ligne active en colonnes
A:J qui doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lSteph
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours
si evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne
doit fonctionner que si la cellule active est en colonnes A:J et ce
n'est pas toute la ligne mais seulement la ligne active en colonnes
A:J qui doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours
si evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne
doit fonctionner que si la cellule active est en colonnes A:J et ce
n'est pas toute la ligne mais seulement la ligne active en colonnes
A:J qui doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)
Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lSteph
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
dis donc, LSteph, ne pousserais-tu pas un peu Pierre M à rejoindre le clan
des charognards??????
jps (qui serait bien heureux parfois de pouvoir screenpdater false son OE 6
et plus particulièrement le groupe de discussion ci-dessus)
"LSteph" a écrit dans le message de news:Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
dis donc, LSteph, ne pousserais-tu pas un peu Pierre M à rejoindre le clan
des charognards??????
jps (qui serait bien heureux parfois de pouvoir screenpdater false son OE 6
et plus particulièrement le groupe de discussion ci-dessus)
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
u4SIZ1LnHHA.3460@TK2MSFTNGP04.phx.gbl...
Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)
Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lSteph
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
dis donc, LSteph, ne pousserais-tu pas un peu Pierre M à rejoindre le clan
des charognards??????
jps (qui serait bien heureux parfois de pouvoir screenpdater false son OE 6
et plus particulièrement le groupe de discussion ci-dessus)
"LSteph" a écrit dans le message de news:Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
dis donc, LSteph, ne pousserais-tu pas un peu Pierre M à rejoindre le clan
des charognards??????
jps (qui serait bien heureux parfois de pouvoir screenpdater false son OE 6
et plus particulièrement le groupe de discussion ci-dessus)
"LSteph" a écrit dans le message de news:Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
dis donc, LSteph, ne pousserais-tu pas un peu Pierre M à rejoindre le clan
des charognards??????
jps (qui serait bien heureux parfois de pouvoir screenpdater false son OE 6
et plus particulièrement le groupe de discussion ci-dessus)
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
u4SIZ1LnHHA.3460@TK2MSFTNGP04.phx.gbl...
Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)
Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lSteph
Merci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph <lecocosteph@frite.fr> said:
Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lSteph
Bonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M
dis donc, LSteph, ne pousserais-tu pas un peu Pierre M à rejoindre le clan
des charognards??????
jps (qui serait bien heureux parfois de pouvoir screenpdater false son OE 6
et plus particulièrement le groupe de discussion ci-dessus)
"LSteph" a écrit dans le message de news:Celui qui préfère le baujolais voyons, ...c'est évident!
;o)
LSteph
(avec un s)Merci beaucoup.
(C'est lequel le président? dit-il en chuchotant)
Pierre.M
On 2007-05-22 22:57:41 +0200, LSteph said:Bonsoir,
Après le passage de notre président , pas grand chose à ajouter
ou juste histoire de répondre quelquechose quand même (...en aparté)
cela désactive la mise à jour écran, donc on ne voit plus
les trucs qui bougent dans tous les sens pendant l'exécution,
et lorsqu'il s'agit de procédures plus lourdes, c'est d'une exécution
bien plus rapide.
@+
lStephMerci beaucoup, c'est exactement ce dont j'avais besoin.
C'est marrant quand on a la reponse sous les yeux ca parait toujours si
evident.
Encore plein de progres a faire, faut croire...
Pourrais-tu me dire a quoi sert le Application.ScreenUpdatingúlse?
Merci encore, je vais pouvoir finaliser ce projet.
Pierre.M
On 2007-05-21 21:01:56 +0200, LSteph said:Bonsoir Pierre,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a:j])
If Not isect Is Nothing Then
Application.ScreenUpdating = False
[a:j].Cells.Interior.ColorIndex = xlNone
With [a:j].Rows(isect.Row).Cells
.Interior.ColorIndex = 36
End With
End If
End Sub
'lStephBonsoir,
j'ai trouve le code de surlignage suivant sur excelabo (merci!):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
End With
End Sub
Mais j'arrive pas a l'adapter a mes besoins, a savoir qu'il ne doit
fonctionner que si la cellule active est en colonnes A:J et ce n'est
pas toute la ligne mais seulement la ligne active en colonnes A:J qui
doit se surligner.
Quelqu'un veut bien me depanner encore une fois. Merci d'avance.
Pierre.M