Discussion :

[Julaxio]

Bonjour
Je cherche a Selectionné la cellule qui est juste a coté d'une déjà selectionné
j'utilise ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
CelluleRefresh = Range("B2").EntireColumn.SpecialCells(xlCellTypeConstants).Select     
If IsNumeric(CelluleRefresh) Then

je sélectionne toutes les cellules non vide de la colonne B, je test si elles ont une valeur numérique, et je voudrais que si oui, sélectionné la celulle de la colonne C,
je pensais à une formule ActiveCell.formulaR1C1 mais je ne suis pas sûre...
Une idée serait la bien venu

[mercatog]

Bonjour
Une question, pourquoi tu veux sélectionner des cellules?

Exemple (pour colorier les cellules de la colonne C en rouge au cas ou la cellule limitrophe de la colonne B contient une valeur numérique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim PlgNum As Range
 
With Sheets("Feuil1")
    On Error Resume Next
    Set PlgNum = .Range("B:B").SpecialCells(xlCellTypeConstants, 1)
    On Error GoTo 0
    If Not PlgNum Is Nothing Then PlgNum.Offset(0, 1).Interior.ColorIndex = 3
    Set PlgNum = Nothing
End With

[Julaxio]

En fait je veux savoir ( après avoir tester si les cellules de la col B ont une valeur numérique) si les cellules de la col C sont pleine ou vide seulement pour celles qui sont sur la même ligne que les cellules numériques de la col B...
Je sais pas si c'est très clair
En gros si B3 = 785 est ce que C3 est pleine ou vide
Et si B4 = bonjour ne pas tester C4
et celà pour toute la collonne
Si une Cell B a une valeur numérique la Cell C aura elle aussi une valeur Numérique...
Peut-être un peu plus clair...

[mercatog]

Ton explication ne va pas jusqu'à la fin.
B3=785
C3 vide; que faire?
C3 texte; que faire?
C3 numérique; que faire?

[Julaxio]

-Si B3 = 785
-Et si C3 pleine
Alors B3 inchangé
Mais Si C3 Vide
Alors B3 prend la valeur d'une Cellule qui est dans une autre feuille

[mercatog]

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim PlgNum As Range, c As Range
 
With Sheets("Feuil1")
    On Error Resume Next
    Set PlgNum = .Range("B:B").SpecialCells(xlCellTypeConstants, 1)
    On Error GoTo 0
    If Not PlgNum Is Nothing Then
        For Each c In PlgNum.Offset(0, 1)
            If c.Value = "" Then c.Offset(0, -1).Value = Sheets("Feuil2").Range("D20").Value 'Par exemple
        Next c
        Set PlgNum = Nothing
    End If
End With