Recherche cellule vide dans colonne

[Hervé_88]

Bonjour à tous,

Je suis pas trés alaise sur les macro et j'ai besoin de faire une recherche de cellule vide dans des colonnes pour coper une formule et un format de cellule

Ci-joint fichier, D'avance un grand merci pour votre aide

Cdt,
Hervé

 

[Dull]

Re : Recherche cellule vide dans colonne

Salut Hervé_88, le Forum

Pas sur d'avoir compris mais essaye ce Fichier

Lien supprimé

Bonne Journée

 

[Hervé_88]

Re : Recherche cellule vide dans colonne

tout à fait ça je te remerci, il y a just un problème en fin d'execution de la macro c'est du a quoi?
encore un grand merci à toi

 

[Dull]

Re : Recherche cellule vide dans colonne

Re

effectivement en faisant des essais j'ai supprimer des lignes
adapte ta plage en fonction de la dernière ligne du Tableau

Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Range("J2:J[COLOR=Red][B]118[/B][/COLOR]")
If C = "" Then
    C.FormulaR1C1 = "=RC[-3]/RC[-6]"
    C = Format(C, "##.00%")
End If
Next C
For Each C In Range("K2:K[COLOR=Red][B]118[/B][/COLOR]")
If C = "" Then
    C.FormulaR1C1 = "=RC[-4]/RC[-8]"
    C = Format(C, "##.00%")
End If
Next C
End Sub

Bonne Journée

 

[Hervé_88]

Re : Recherche cellule vide dans colonne

si c'est pas trop de demander, j'ai encore une requête :
le tableau que je t'ai donné peu varier de ligne donc la fin n'est pas toujours sur ligne définie, peux-tu faire un arrêt si plusieurs lignes vides en fin de tableau

 

[Dull]

Re : Recherche cellule vide dans colonne

Re Hervé

Il faut rendre ton tableau dynamique
j'ai pris comme référence la colonne C qui n'a pas de vide

Suis les instructions ci-après

Insertion/Nom/définir
Nom dans le Classeur: Tab
Fait référence à: =DECALER(Format!$C$2;;;NBVAL(Format!$C:$C)-1)
Click sur le Bouton Ajouter
Fermer

et change le code par celui-ci

Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Range("tab")
If C.Offset(0, 7) = "" Then
    C.Offset(0, 7).FormulaR1C1 = "=RC[-3]/RC[-6]"
    C.Offset(0, 7) = Format(C.Offset(0, 7), "##.00%")
End If
If C.Offset(0, 8) = "" Then
    C.Offset(0, 8).FormulaR1C1 = "=RC[-4]/RC[-8]"
    C.Offset(0, 8) = Format(C.Offset(0, 8), "##.00%")
End If
Next C
End Sub

Bonne Journée

 

[Hervé_88]

Re : Recherche cellule vide dans colonne

Encore un très très..... GRAND MERCI

 

[Hervé_88]

Re : Recherche cellule vide dans colonne

Au plaisir

 

[46MNO83]

Re : Recherche cellule vide dans colonne

Salut

sur le site j'avais trouvé
xlg=range("A" & cells.rows.count).end(xlup).row
xlg donnera la dernière ligne occupée de la colonne A