Macro - décalage de cellule

[Jeanne]

Bonjour,

Je souhaite après avoir sélectionné une cellule par recherche d'un mot particulier, me positionner sur la cellule de la colonne suivante.
Ex : le mot CORRIGE se situe dans la cellule B3, je souhaite me positionner sur C3
Quelle est la syntaxe pour réaliser cela automaitquement dans une macro ?
Merci d'avance
Jeanne

 

[Jeannot45]

Re : Macro - décalage de cellule

Bonjour Jeanne

Tu peux utiliser la syntaxe suivante

ActiveCell.offset(0,1).select

La methode Offset permet de se decompose en
Offset(decalage ligne, décalage colonne)

A+

Jeannot

 

[dg62]

Re : Macro - décalage de cellule

Bonjour Jeanne

Sub cherche()
Dim mot As String
Dim c As Range
mot = InputBox("Mot à trouver")
    For Each c In Range("b2:b100")
        If c.Value = mot Then
            c.Offset(0, 1).Select ' effectue le décalage souhaité
        End If
    Next c
End Sub

Edition : Bonjour Jeannot45, Not refresh

 

[Jeanne]

Re : Macro - décalage de cellule

ça marche super !
La fonction correspond exactement à ce que je veux faire sauf que je ne sais pas à l'avance la taille de mon tableau Range("b3:b100").
C'est variable. y-a-til un moyen de sélectionner toutes les lignes non vides de la colonne B1 ?

Merci
Jeanne

 

[dg62]

Re : Macro - décalage de cellule

re


il faut remplacer la ligne : For Each c In Range("b2:b100") par

For each c in Range("B2:B" & Range("B65536").End(xlUp).row)

 

[Jeanne]

Re : Macro - décalage de cellule

ça marche, mais je sélectionne toute la colonne y compris les lignes vides de fin de tableaux. Et comme je fais du formatage de cellule, cela pollue mon tableau.
Est-ce que je ne peux pas utiliser dans le range une formule du type Selection.SpecialCells(xlCellTypeLastCell).Select ?

Merci
Jeanne

 

[Jeanne]

Re : Macro - décalage de cellule

Message précédent à oublier ....
c'est moi qui ai fait une fausse manip
ça marche !
Merci beaucoup
Jeanne