XL 2010 Recherche cellule vide sur une ligne

[danone16]

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]

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

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

 

[Phil69970]

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]

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]

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]

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]

Grand merci il fonctionne parfaitement

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

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

Grand merci il fonctionne parfaitement

 

[sylvanu]

Bonsoir Phil,

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.

mes colonnes sont fusionnées par 2

 

[Phil69970]

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]

Bonjour à tous,

Ceci est quand même plus simple :

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

A+