XL 2010 Recherche cellule vide sur une ligne

danone16 · Jeudi à 16:59

Rechercher la première colonne vide (mes colonnes sont fusionnées par 2)
J'ai des éléments dans les premières colonnes puis des colonnes vides puis une colonne complétée

Private Sub CommandButton1_Click()
Dim i As Integer
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To dercol
If Cells("1", i) = "" Then
Cells("1", i).Select
End If
Next
End Sub

Merci pour vos réponses

sylvanu · Jeudi à 17:06

Bonjour Danon,
Un simple oubli je suppose?
Pourquoi pas simplement :

VB:

Private Sub CommandButton1_Click()
Cells(1, 2 * Application.CountIf([1:1], "*")).Select
End Sub

Phil69970 · Jeudi à 17:36

Bonjour à tous

@danone16
Une précision
==> Tu veux la 1ere colonne fusionnée vide en clair la colonne J1 dans ton exemple
==> Tu veux la 1 ere colonne vide après les colonnes fusionné en clair la colonne R1 dans ton exemple

danone16 · Jeudi à 17:58

Phil69970 à dit:
Bonjour à tous

@danone16
Une précision
==> Tu veux la 1ere colonne fusionnée vide en clair la colonne J1 dans ton exemple
==> Tu veux la 1 ere colonne vide après les colonnes fusionné en clair la colonne R1 dans ton exemple

Bonjour
Je souhaite la 1ere colonne j1:k1
Merci

Phil69970 · Jeudi à 18:05

Re

Sylvain ta solution fonctionne seulement si tu connais d'avance le "pas des cellules fusionnées"
@danone16
Fonctionne sur un "pas des cellules fusionnées" inconnu

Private Sub CommandButton1_Click()
Dim Dercol%, X%

Dercol = Cells(1, Columns.Count).End(xlToLeft).Column
X = Cells(1, Dercol).MergeArea.Cells.Count
Cells(1, X * Application.CountIf([1:1], "*")).Select 'Cellule J1
End Sub

danone16 · Jeudi à 18:14

Phil69970 à dit:
Bonjour à tous

@danone16
Une précision
==> Tu veux la 1ere colonne fusionnée vide en clair la colonne J1 dans ton exemple
==> Tu veux la 1 ere colonne vide après les colonnes fusionné en clair la colonne R1 dans ton exemple

Grand merci il fonctionne parfaitement

danone16 · Jeudi à 18:16

danone16 à dit:
Grand merci il fonctionne parfaitement

sylvanu à dit:
Bonjour Danon,
Un simple oubli je suppose?
Pourquoi pas simplement :

VB:

Private Sub CommandButton1_Click() Cells(1, 2 * Application.CountIf([1:1], "*")).Select End Sub

Grand merci il fonctionne parfaitement

sylvanu · Jeudi à 18:28

Bonsoir Phil,

Phil69970 à dit:
Sylvain ta solution fonctionne seulement si tu connais d'avance le "pas des cellules fusionnées"

C'est l'hypothèse de départ donnée par Danone.

danone16 à dit:
mes colonnes sont fusionnées par 2

Phil69970 · Jeudi à 18:33

Re

Certes c'est l'hypothèse de départ donnée par Danone mais je me suis placé dans une optique passe partout et adaptable au fichier du futur lecteur .....

job75 · Jeudi à 18:34

Bonjour à tous,

Ceci est quand même plus simple :

VB:

Private Sub CommandButton1_Click()
Rows(1).Find("", , xlValues).Select
End Sub

A+

XL 2010 Recherche cellule vide sur une ligne

danone16

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

danone16

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

danone16

XLDnaute Nouveau

danone16

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires