separer un nombre

[aurelien02]

bonjour,

j'aimerais séparer un nombre en plusieurs lignes, c'est a dire :

j'aimerais que si je mette 3 en a1, il écrive 1 en b1 puis 1 en b2 et 1 en b3


c'est en fait pour améliorer le "logiciel de facturation de camping" que j'ai fait avec excel, il faudrait que je séparer les nuitées pour en ajouter seulement 1 par jour, mais si il reste 3 jours, il faut en ajouter 1 par jour pendant 3 jours

il faut peut etre faire ca en macro, je doute que les formules soit suffisantes pour ca

merci

aurelien

 

[job75]

Re : separer un nombre

Re,

Dans cette version (2) j'ai juste ajouté r(1, 2) = "" dans la boucle.

A+

 

[job75]

Re : separer un nombre

Re,

Je n'avais pas vu votre post #15 :

c'est ca, est il possible, plutôt que de les ecrire a la suite dans la colonne, de les mettre en face (...)

Ce n'est pas compréhensible, exprimez-vous clairement.

A+

 

[aurelien02]

Re : separer un nombre

je voudrais que la décomposition de nuitées soit rangée dans le tableau que j'ai fais sur la feuille excel et que la première nuitée soit en face de la date du jour

exemple:

2 nuitées, décomposées en 1 au 14/06/2013 et 1 au 15/06/2013, et donc que ca marque 1 en face de 14/06/2013 et 1 en face de 15/06/2013

et si possible après, que quand je refasse l’opération avec des autres nuitées grâce au bouton, ca fasse la somme des nuitées deja présentes dans le tableau et des nouvelles, toujours en fonction de la date pour les classer dans le tableau.

merci

 

[job75]

Re : separer un nombre

Re,

Votre problème ne se résoudra pas en entrant des 1 dans une colonne.

En effet si vous vous trompez en entrant le nombre de nuités, vous n'aurez plus la possibilité de corriger.

A+

 

[job75]

Re : separer un nombre

Re,

J'ai finalement refait mon fichier avec cette nouvelle macro :

Sub Recap()
Dim T, c As Range, n As Long, i As Long
[Dates].Parent.Activate 'sécurité
On Error Resume Next 'si une date n'existe pas dans le récapitulatif
[Dates].Offset(, 1).ClearContents 'RAZ
T = [Dates].Offset(, 1) 'tableau, plus rapide
For Each c In Range("A3", Cells(Rows.Count, 1).End(xlUp))
  If IsDate(c) Then
    n = Int(Val(c(1, 2).Text))
    i = 0
    i = Application.Match(c, [Dates], 0)
    If n * i > 0 Then
      For i = i To i + n - 1
        T(i, 1) = T(i, 1) + 1
      Next
    End If
  End If
Next
[Dates].Offset(, 1) = T
End Sub

Elle se lance, comme vous le souhaitez, par le bouton.

A+

 

[aurelien02]

Re : separer un nombre

merci, j'essayerai demain

 

[job75]

Re : separer un nombre

Bonjour aurelien02, le forum,

Une autre méthode utilisant 2 tableaux (un peu plus rapide) :

Sub Recap()
Dim tablo, T(), i&, n&, j&
[Dates].Parent.Activate 'sécurité
On Error Resume Next 'si une date n'existe pas dans le récapitulatif
tablo = Range("A3:B" & Cells(Rows.Count, 1).End(xlUp).Row)
ReDim T(1 To [Dates].Count, 1 To 1)
For i = 1 To UBound(tablo)
  If IsDate(tablo(i, 1)) Then
    n = 0: j = 0
    n = Int(Val(tablo(i, 2)))
    j = Application.Match(CDbl(tablo(i, 1)), [Dates], 0)
    If n * j > 0 Then
      For j = j To j + n - 1
        T(j, 1) = T(j, 1) + 1
      Next
    End If
  End If
Next
[Dates].Offset(, 1) = T
End Sub

Fichier (2).

A+

 

[aurelien02]

Re : separer un nombre

voila, vous y etes, il ne me reste plus qu'a faire la somme, en fait j'aurai qu'une seule case de nuitée et le bouton, enregistrera les nuitée dans le tableau et effacera la case nuitée pour que je suis en saisir d'autres

merci

 

[job75]

Re : separer un nombre

Re,

Oui mais alors vous ne pourrez pas corriger les erreurs éventuelles.

Il vaut mieux conserver à gauche l'historique des enregistrements.

Et ce sera plus facile pour vous y retrouver.

A+

 

[aurelien02]

Re : separer un nombre

exact, merci !!