B
Boby71C
Guest
Bonjour à tous
Je désir encadrer à partir de A5 les cellules différentes de rien.
Si A est dif de rien, selectionner de 1 à 39 et encadrer.
Descendre 1 ligne et procéder comme ci-dessus
Si A est vide arrêter la bocle.
Mon problême est le suivant:
La boucle de recherche se fait bien, mais rien ne se passe sur mon document, je reste selectionné cellule active A5 et selection d'encadrement de 1 à 39 sur cette même ligne et ma boucle est sans fin.
Je n'arrive pas à comprendre l'ordre des macros.
Ci-dessous mon listing.
Sub Encadrement_Des_Cellules()
'
' Encadrement_Des_Cellules Macro
' Macro enregistrée le 02/03/2005 par Robert '
a = 5
Range('A5').Select
' Recherche les cellules comportant des N° de projets
While Cells(a, 1).Value <> ''
If Len(Cells(a, 1)) > 6 Then
Range(Cells(a, 1), Cells(a, 50)).Select
Else
' Selectionne la ligne de A à AM
Range(Selection, ActiveCell(1, 39)).Select
' Encadre les cellules de A à AM
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
a = a + 1
End With
End If
Wend
End Sub
Merci de votre aide précieuse
Robert
Je désir encadrer à partir de A5 les cellules différentes de rien.
Si A est dif de rien, selectionner de 1 à 39 et encadrer.
Descendre 1 ligne et procéder comme ci-dessus
Si A est vide arrêter la bocle.
Mon problême est le suivant:
La boucle de recherche se fait bien, mais rien ne se passe sur mon document, je reste selectionné cellule active A5 et selection d'encadrement de 1 à 39 sur cette même ligne et ma boucle est sans fin.
Je n'arrive pas à comprendre l'ordre des macros.
Ci-dessous mon listing.
Sub Encadrement_Des_Cellules()
'
' Encadrement_Des_Cellules Macro
' Macro enregistrée le 02/03/2005 par Robert '
a = 5
Range('A5').Select
' Recherche les cellules comportant des N° de projets
While Cells(a, 1).Value <> ''
If Len(Cells(a, 1)) > 6 Then
Range(Cells(a, 1), Cells(a, 50)).Select
Else
' Selectionne la ligne de A à AM
Range(Selection, ActiveCell(1, 39)).Select
' Encadre les cellules de A à AM
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
a = a + 1
End With
End If
Wend
End Sub
Merci de votre aide précieuse
Robert