Connaitre le nbr de cel. vide

tomTom -  
 TomTom -
Bonjour,

Je cherche à diviser une valeur également selon le nombre de cellule vide contigue en Excel à gauche de la valeur. J'ai du code qui fonctionne bien si et seulement si j'ai une seule cellule vide à la gauche.

Ma fonction se fait seulement si la valeur changer est sur une ligne d'une couleur particuliaire.

Private Sub Worksheet_Change(ByVal Target As range)
Dim Valeur As Double

If Target.Interior.ColorIndex = 34 Then
If IsEmpty(Target.Offset(0, -1)) Then
If IsNumeric(Target.Value) Then
Valeur = Target.Value / 2
Target.Offset(0, -1).Value = Valeur
Target.Value = Tronquer(Valeur, 2)
End If
End If
End If

End Sub

Actullement je divise par 2 ma valeur, mais je cherche à diviser selon le nombre de cellule vide contigue à la gauche, donc le 2 devra être une variable calculée.

Que me vous suggérez-vous?

Merci de votre précieuse aide.

TomTom

2 réponses

TomTom
 
Bonjour,

c'est vrai que je peux faire une boucle juste avant pour savoir combien de cellule précédente vide et consécutive que j'ai. Mon problème est de savoir ou je me trouve actuellement.

Par example:

En C4 = (vide)
C5 = 5
C6 = (vide)
C7 = (vide)
C8 = (vide)
et C9 j'écris 12 alors la macro doit s'activer ( si et seulement si, mes cellule sont de la bonne couleur)
donc
C4 = (vide)
C5 = 5
C6 = 3
C7 = 3
C8 = 3
et C9 = 3

Le nombre 12 en cellule C9 a été divisé en part égale selon le nombre de cellule libre précédent à C9.

Actulelement j'aurais obtenue:

C4 = (vide)
C5 = 5
C6 = 1.5
C7 = 1.5
C8 = 3
et C9 = 6

Humm, comment puis-faire partager également à partir de la cellule qui a fait démarrer la macro.

Merci

TomTom
0
TomTom
 
Bonjour,

Comme ça personne ne peux m'aider , snif, snif.

Ai-je été assez clair?

Je vous remercie de vous questionner et de m'aider s'il y a lieu.

TomTom
0