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
Galopin01
bonsoir, Workbook ne possède pas de propriété Cell, ni Range ;
Private Sub Workbook_Open() Sheets("blabla").Activate For Each o In Sheets("blabla").Range("a26:a150") If o.Value = Sheets("blabla").Range("a25").Value o.Select ... A+
"jp" a écrit dans le message de news:
Bonsoir, j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans le Thisworkbook.
Private Sub Workbook_Open() For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then cell.Select End If Next End Sub
J'utilse la version 2003. Quelqu'un peu me dire?
Merci JP
bonsoir,
Workbook ne possède pas de propriété Cell, ni Range ;
Private Sub Workbook_Open()
Sheets("blabla").Activate
For Each o In Sheets("blabla").Range("a26:a150")
If o.Value = Sheets("blabla").Range("a25").Value
o.Select
...
A+
"jp" <jpierrethillard@orange.fr> a écrit dans le message de news:
4009e461-09d5-453a-90bd-0c1b0634e883@d4g2000prg.googlegroups.com...
Bonsoir,
j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans
le Thisworkbook.
Private Sub Workbook_Open()
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
cell.Select
End If
Next
End Sub
bonsoir, Workbook ne possède pas de propriété Cell, ni Range ;
Private Sub Workbook_Open() Sheets("blabla").Activate For Each o In Sheets("blabla").Range("a26:a150") If o.Value = Sheets("blabla").Range("a25").Value o.Select ... A+
"jp" a écrit dans le message de news:
Bonsoir, j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans le Thisworkbook.
Private Sub Workbook_Open() For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then cell.Select End If Next End Sub
J'utilse la version 2003. Quelqu'un peu me dire?
Merci JP
Frédéric Sigonneau
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur que A25 ne sont pas sélectionnées par cette procédure, mais seulement la dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode Select ne permet pas de sélectionner une nouvelle cellule en conservant les sélections précédentes. C'est possible avec certains objets, des feuilles de calcul, des graphiques mais pas avec des cellules. Utilise une autre approche, si c'est bien ça ton objectif :
Private Sub Workbook_Open() Dim cell As Range, plage As Range For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then If plage Is Nothing Then Set plage = cell Else Set plage = Union(plage, cell) End If End If Next plage.Select End Sub
Bonsoir, j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans le Thisworkbook.
Private Sub Workbook_Open() For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then cell.Select End If Next End Sub
J'utilse la version 2003. Quelqu'un peu me dire?
Merci JP
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur
que A25 ne sont pas sélectionnées par cette procédure, mais seulement la
dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode
Select ne permet pas de sélectionner une nouvelle cellule en conservant les
sélections précédentes. C'est possible avec certains objets, des feuilles de
calcul, des graphiques mais pas avec des cellules.
Utilise une autre approche, si c'est bien ça ton objectif :
Private Sub Workbook_Open()
Dim cell As Range, plage As Range
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
If plage Is Nothing Then
Set plage = cell
Else
Set plage = Union(plage, cell)
End If
End If
Next
plage.Select
End Sub
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur que A25 ne sont pas sélectionnées par cette procédure, mais seulement la dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode Select ne permet pas de sélectionner une nouvelle cellule en conservant les sélections précédentes. C'est possible avec certains objets, des feuilles de calcul, des graphiques mais pas avec des cellules. Utilise une autre approche, si c'est bien ça ton objectif :
Private Sub Workbook_Open() Dim cell As Range, plage As Range For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then If plage Is Nothing Then Set plage = cell Else Set plage = Union(plage, cell) End If End If Next plage.Select End Sub
Bonsoir, j'ai une macro qui bug à l'ouverture du fichier. elle est placée dans le Thisworkbook.
Private Sub Workbook_Open() For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then cell.Select End If Next End Sub
J'utilse la version 2003. Quelqu'un peu me dire?
Merci JP
jp
Merci à tout les deux. plus d'erreur tout fonctionne. JP
On 29 mar, 21:10, Frédéric Sigonneau wrote:
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur que A25 ne sont pas sélectionnées par cette procédure, mais seulemen t la dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode Select ne permet pas de sélectionner une nouvelle cellule en conservant les sélections précédentes. C'est possible avec certains objets, des feu illes de calcul, des graphiques mais pas avec des cellules. Utilise une autre approche, si c'est bien ça ton objectif :
Private Sub Workbook_Open() Dim cell As Range, plage As Range For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then If plage Is Nothing Then Set plage = cell Else Set plage = Union(plage, cell) End If End If Next plage.Select End Sub
Bonsoir, j'ai une macro qui bug à l'ouverture du fichier. elle est placée dan s le Thisworkbook.
Private Sub Workbook_Open() For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then cell.Select End If Next End Sub
J'utilse la version 2003. Quelqu'un peu me dire?
Merci JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci à tout les deux. plus d'erreur tout fonctionne.
JP
On 29 mar, 21:10, Frédéric Sigonneau <nospam@nospam> wrote:
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur
que A25 ne sont pas sélectionnées par cette procédure, mais seulemen t la
dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode
Select ne permet pas de sélectionner une nouvelle cellule en conservant les
sélections précédentes. C'est possible avec certains objets, des feu illes de
calcul, des graphiques mais pas avec des cellules.
Utilise une autre approche, si c'est bien ça ton objectif :
Private Sub Workbook_Open()
Dim cell As Range, plage As Range
For Each cell In Range("a26:a150")
If cell.Value = Range("a25").Value Then
If plage Is Nothing Then
Set plage = cell
Else
Set plage = Union(plage, cell)
End If
End If
Next
plage.Select
End Sub
Merci à tout les deux. plus d'erreur tout fonctionne. JP
On 29 mar, 21:10, Frédéric Sigonneau wrote:
Si ce qui "bugue" c'est le fait que toutes les cellules qui ont la même valeur que A25 ne sont pas sélectionnées par cette procédure, mais seulemen t la dernière, ce n'est pas un bug, c'est normal : appliquée à une plage, la méthode Select ne permet pas de sélectionner une nouvelle cellule en conservant les sélections précédentes. C'est possible avec certains objets, des feu illes de calcul, des graphiques mais pas avec des cellules. Utilise une autre approche, si c'est bien ça ton objectif :
Private Sub Workbook_Open() Dim cell As Range, plage As Range For Each cell In Range("a26:a150") If cell.Value = Range("a25").Value Then If plage Is Nothing Then Set plage = cell Else Set plage = Union(plage, cell) End If End If Next plage.Select End Sub