J’utilise ce bout de code pour sélectionner uniquement une région contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
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
Daniel
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Bonjour.
Intersect(Range("B:IV"), Selection.CurrentRegion).Select
Cordialement.
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de news:
617A6CEC-712C-4642-BE4D-44F54957A49E@microsoft.com...
J'utilise ce bout de code pour sélectionner uniquement une région
contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu
contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de news:
617A6CEC-712C-4642-BE4D-44F54957A49E@microsoft.com...
J'utilise ce bout de code pour sélectionner uniquement une région
contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu
contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Garette
Bonjour,
Sub test() Selection.CurrentRegion.Offset(0, 1).Resize(, Selection.CurrentRegion.Columns.Count - 1).Select End Sub
Pour ne pas selectionner la ligne d'entete ni la colonne A Sub test2() With Selection.CurrentRegion .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Select End With End Sub
Bonjour,
Sub test()
Selection.CurrentRegion.Offset(0, 1).Resize(,
Selection.CurrentRegion.Columns.Count - 1).Select
End Sub
Pour ne pas selectionner la ligne d'entete ni la colonne A
Sub test2()
With Selection.CurrentRegion
.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Select
End With
End Sub
Sub test() Selection.CurrentRegion.Offset(0, 1).Resize(, Selection.CurrentRegion.Columns.Count - 1).Select End Sub
Pour ne pas selectionner la ligne d'entete ni la colonne A Sub test2() With Selection.CurrentRegion .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Select End With End Sub
Gildo
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est pas prise dans ma sélection. Mais la région s’étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est
pas prise dans ma sélection. Mais la région s’étend quand même des 40000
lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de
lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour.
Intersect(Range("B:IV"), Selection.CurrentRegion).Select
Cordialement.
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de news:
617A6CEC-712C-4642-BE4D-44F54957A49E@microsoft.com...
J'utilise ce bout de code pour sélectionner uniquement une région
contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu
contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est pas prise dans ma sélection. Mais la région s’étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Gildo
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est pas prise dans ma sélection. Mais la région s’étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour,
Sub test() Selection.CurrentRegion.Offset(0, 1).Resize(, Selection.CurrentRegion.Columns.Count - 1).Select End Sub
Pour ne pas selectionner la ligne d'entete ni la colonne A Sub test2() With Selection.CurrentRegion .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Select End With End Sub
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est
pas prise dans ma sélection. Mais la région s’étend quand même des 40000
lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de
lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour,
Sub test()
Selection.CurrentRegion.Offset(0, 1).Resize(,
Selection.CurrentRegion.Columns.Count - 1).Select
End Sub
Pour ne pas selectionner la ligne d'entete ni la colonne A
Sub test2()
With Selection.CurrentRegion
.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Select
End With
End Sub
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est pas prise dans ma sélection. Mais la région s’étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour,
Sub test() Selection.CurrentRegion.Offset(0, 1).Resize(, Selection.CurrentRegion.Columns.Count - 1).Select End Sub
Pour ne pas selectionner la ligne d'entete ni la colonne A Sub test2() With Selection.CurrentRegion .Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1).Select End With End Sub
Gildo
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est pas prise dans ma sélection. Mais la région s’étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est
pas prise dans ma sélection. Mais la région s’étend quand même des 40000
lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de
lignes, je sélectionne donc 40000 dont 39000 lignes vides.
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de news:
617A6CEC-712C-4642-BE4D-44F54957A49E@microsoft.com...
J'utilise ce bout de code pour sélectionner uniquement une région
contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu
contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n’est pas prise dans ma sélection. Mais la région s’étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n’ont qu’un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Daniel
Si toutes les colonnes sauf A ont le même nombre de lignes :
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est pas prise dans ma sélection. Mais la région s'étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n'ont qu'un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Si toutes les colonnes sauf A ont le même nombre de lignes :
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de news:
A8215EB3-22F4-41CC-8045-1F4920DBB693@microsoft.com...
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est
pas prise dans ma sélection. Mais la région s'étend quand même des 40000
lignes contenues dans A alors que les autres colonnes n'ont qu'un millier
de
lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour.
Intersect(Range("B:IV"), Selection.CurrentRegion).Select
Cordialement.
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de
news:
617A6CEC-712C-4642-BE4D-44F54957A49E@microsoft.com...
J'utilise ce bout de code pour sélectionner uniquement une région
contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu
contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est pas prise dans ma sélection. Mais la région s'étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n'ont qu'un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Daniel
Dans tous les cas : Intersect(Range("B1", _ Range("IV" & Range("B:IV").Find("*", , , , xlByRows, xlPrevious).Row)), _ Selection.CurrentRegion).Select Daniel "Gildo" a écrit dans le message de news:
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est pas prise dans ma sélection. Mais la région s'étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n'ont qu'un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Dans tous les cas :
Intersect(Range("B1", _
Range("IV" & Range("B:IV").Find("*", , , , xlByRows, xlPrevious).Row)),
_
Selection.CurrentRegion).Select
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de news:
A8215EB3-22F4-41CC-8045-1F4920DBB693@microsoft.com...
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est
pas prise dans ma sélection. Mais la région s'étend quand même des 40000
lignes contenues dans A alors que les autres colonnes n'ont qu'un millier
de
lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour.
Intersect(Range("B:IV"), Selection.CurrentRegion).Select
Cordialement.
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de
news:
617A6CEC-712C-4642-BE4D-44F54957A49E@microsoft.com...
J'utilise ce bout de code pour sélectionner uniquement une région
contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu
contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
Dans tous les cas : Intersect(Range("B1", _ Range("IV" & Range("B:IV").Find("*", , , , xlByRows, xlPrevious).Row)), _ Selection.CurrentRegion).Select Daniel "Gildo" a écrit dans le message de news:
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est pas prise dans ma sélection. Mais la région s'étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n'ont qu'un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
Gildo
C’est nickel, encore Bravo ! Ca m’enlève une belle épine du pied.
Dans tous les cas : Intersect(Range("B1", _ Range("IV" & Range("B:IV").Find("*", , , , xlByRows, xlPrevious).Row)), _ Selection.CurrentRegion).Select Daniel "Gildo" a écrit dans le message de news:
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est pas prise dans ma sélection. Mais la région s'étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n'ont qu'un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
C’est nickel, encore Bravo ! Ca m’enlève une belle épine du pied.
Dans tous les cas :
Intersect(Range("B1", _
Range("IV" & Range("B:IV").Find("*", , , , xlByRows, xlPrevious).Row)),
_
Selection.CurrentRegion).Select
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de news:
A8215EB3-22F4-41CC-8045-1F4920DBB693@microsoft.com...
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est
pas prise dans ma sélection. Mais la région s'étend quand même des 40000
lignes contenues dans A alors que les autres colonnes n'ont qu'un millier
de
lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour.
Intersect(Range("B:IV"), Selection.CurrentRegion).Select
Cordialement.
Daniel
"Gildo" <Gildo@discussions.microsoft.com> a écrit dans le message de
news:
617A6CEC-712C-4642-BE4D-44F54957A49E@microsoft.com...
J'utilise ce bout de code pour sélectionner uniquement une région
contenant
des valeurs
Mais je ne souhaite pas sélectionner la colonne A qui bien entendu
contient
des valeurs.
Je tourne en rond !
Avez-vous une idée ?
Selection.CurrentRegion.Select
For Each cell In Selection
NbreCellules = NbreCellules + 1
If IsNumeric(cell.Value) Then
Nbre = Nbre + 1
End If
Next
' Message si test négatif
If NbreCellules = Nbre Then
MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly,
"Modifier"
Exit Sub
End If
C’est nickel, encore Bravo ! Ca m’enlève une belle épine du pied.
Dans tous les cas : Intersect(Range("B1", _ Range("IV" & Range("B:IV").Find("*", , , , xlByRows, xlPrevious).Row)), _ Selection.CurrentRegion).Select Daniel "Gildo" a écrit dans le message de news:
Toutes les solutions proposées fonctionnent parfaitement. La colonne A n'est pas prise dans ma sélection. Mais la région s'étend quand même des 40000 lignes contenues dans A alors que les autres colonnes n'ont qu'un millier de lignes, je sélectionne donc 40000 dont 39000 lignes vides.
Bonjour. Intersect(Range("B:IV"), Selection.CurrentRegion).Select Cordialement. Daniel "Gildo" a écrit dans le message de news:
J'utilise ce bout de code pour sélectionner uniquement une région contenant des valeurs Mais je ne souhaite pas sélectionner la colonne A qui bien entendu contient des valeurs. Je tourne en rond ! Avez-vous une idée ?
Selection.CurrentRegion.Select For Each cell In Selection NbreCellules = NbreCellules + 1 If IsNumeric(cell.Value) Then Nbre = Nbre + 1 End If Next ' Message si test négatif If NbreCellules = Nbre Then MsgBox "Sélectionnez des cellules contenant du texte.", vbOKOnly, "Modifier" Exit Sub End If
