Sélectionner toute la colonne sauf la cellule active

Bonjour,

Je cherche le code qui permet de faire une sélection de la colonne du C1 jusqu'à la dernière cellule au dessus active

En gros, si je tape quelque chose en C100, je souhaite que ma recherche s'effectue de C1:C99.

Le but étant de déterminer une plage de recherche.

Merci !!

Bonjour,

en admettant que tu tapes quelques chose en C100 en validant avec "Entrer" la case active sera C101.

il faut donc remonter de 2 lignes.

maplage = Range(ActiveCell.Offset(-2, 0), ("C1")).Select

Attention à l'évènement dans lequel tu as l'intention d'utiliser çà parceque si tu mets ce code dans "worksheet change"

tu n'auras même pas le temps de finir ta saisie qu'il va lancer la selection de plage.

Hello,

Merci pour la réponse rapide !

En fait je cherche à faire une recherche de la cellule que je viens de taper dans toute la colonne (sauf de la cellule que je viens de rentrer sinon ça trouvera à chaque fois) :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String
    Dim Maligne As Integer

    Maligne = ActiveCell.Row
    Valeur_Cherchee = Sheets("PROJECT TRACK").Cells(Rows.Count, "B").End(xlUp)
    Set PlageDeRecherche = ??????????????????????????????????????????????????????
    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

        If Not Trouve Is Nothing Then
        MsgBox "La valeur existe déjà"
        '.Rows(Trouve.Row + 1).Insert Shift:=xlDown
        End If
End Sub

tu peux m'aider ?

merci!!

Comme çà à tester.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String

    Valeur_Cherchee = ActiveCell.Offset(0, 0).value

    Set PlageDeRecherche = Range(ActiveCell.Offset(-1, 0), ("C1"))
    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

        If Not Trouve Is Nothing Then
        MsgBox "La valeur existe déjà"
        '.Rows(Trouve.Row + 1).Insert Shift:=xlDown
        End If
End Sub

Erreur de synthaxe ?? (sur Valeur_cherchee et set plagederecherche)

J'ai testé de mon coté avec celle-ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim Trouve As Range, PlageDeRecherche As Range
    Dim Valeur_Cherchee As String

    Valeur_Cherchee = ActiveCell.Offset(-1, 0).Value

    Set PlageDeRecherche = Range(ActiveCell.Offset(-2, 0), ("C1"))
    Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)

        If Not Trouve Is Nothing Then
        MsgBox "La valeur existe d?j?"

        End If

End Sub

J'ajouterai quand meme juste après : valeur_cherchée =

 If Valeur_Cherchee = "" Then
    Exit Sub
    End If

sinon çà va être galère à chaque clic dans une cellule vide

Et pendant qu'on y est on peut aussi personnaliser le message de doublon :

MsgBox "La valeur" & Valeur_Cherchee & "existe déjà"

Bonjour,

Pour le principe.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Found As Range
    If Not IsEmpty(Target) And Target.Column = 2 Then
        Set Rng = Me.Cells(2).Resize(Target.Row - 1)
        Set Found = Rng.Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not Found Is Nothing Then
            MsgBox "La valeur existe déjà !...", 64, "Information"
        End If
    End If
End Sub

Super merci beaucoup !!