Recherche cellule vide dans colonne

Dull

XLDnaute Barbatruc

• 22 Octobre 2009

• #2

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

 

Dernière édition: 22 Octobre 2009

Vote positif 0 Vote négatif

H

Hervé_88

Guest

• 22 Octobre 2009

• #3

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Octobre 2009

• #4

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

Code:

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

 

Dernière édition: 22 Octobre 2009

Vote positif 0 Vote négatif

H

Hervé_88

Guest

• 22 Octobre 2009

• #5

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
🙂

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 22 Octobre 2009

• #6

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

Code:

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

 

Pièces jointes

• Feuille de calcul dans ALV (2).zip

  50.5 KB · Affichages: 70
• Feuille de calcul dans ALV (2).zip

  50.5 KB · Affichages: 86
• Feuille de calcul dans ALV (2).zip

  50.5 KB · Affichages: 83

Vote positif 0 Vote négatif

H

Hervé_88

Guest

• 22 Octobre 2009

• #7

Re : Recherche cellule vide dans colonne

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

 

Vote positif 0 Vote négatif

H

Hervé_88

Guest

• 22 Octobre 2009

• #8

Re : Recherche cellule vide dans colonne

Au plaisir

 

Vote positif 0 Vote négatif

4

46MNO83

Guest

• 25 Octobre 2009

• #9

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

 

Vote positif 0 Vote négatif