Macro - décalage de cellule

Jeannot45

XLDnaute Occasionnel

• 27 Juillet 2006

• #2

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Juillet 2006

• #3

Re : Macro - décalage de cellule

Bonjour Jeanne

Code:

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

 

Dernière édition: 27 Juillet 2006

Vote positif 0 Vote négatif

J

Jeanne

Guest

• 27 Juillet 2006

• #4

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 27 Juillet 2006

• #5

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)

 

Vote positif 0 Vote négatif

J

Jeanne

Guest

• 27 Juillet 2006

• #6

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

 

Vote positif 0 Vote négatif

J

Jeanne

Guest

• 27 Juillet 2006

• #7

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

 

Vote positif 0 Vote négatif