Matrice, décalage de colonnes

CISCO

XLDnaute Barbatruc

• 18 Décembre 2010

• #2

Re : Matrice, décalage de colonnes

Bonjour

Et les résultats correspondant à la ligne 2, le 3 et le 5 dans ton exemple, d'où est-ce qu'ils viennent ? Ils donnent le nombre de cellules de la zone bleue et de la zone jaune, c'est ça, non ?

Autre question : Dans ton fichier réel, ton tableau comprend combien de colonnes ?

Et dernière, pour la route : Dans quel domaine utilises tu ce genre de tableau ?

@ plus

 

Dernière édition: 1 Janvier 2011

Vote positif 0 Vote négatif

J

JJ1

Guest

• 18 Décembre 2010

• #3

Re : Matrice, décalage de colonnes

Bonsoir cisco,

merci pour ta réponse, j'ai vu que le 5 était en trop, le 3 correspond au décalage +3colonnes à droite après le 2 (ce numéro est choisi)
je n'ai pas encore fait le tablau final, je voudrais savoir la méthode avant (formules ou macro sur ce petit exemple?)
merci à toi.
bonne soirée

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 19 Décembre 2010

• #4

Re : Matrice, décalage de colonnes

Bonjour le Forum, Cisco,
J'ai fait un nouvel exemple plus détaillé (j'y ai supprimé le 0 qui me posait problème pour mes stats et moyennes) avec l'explication pour les résultats du 1 et du 3 (les résultats sont sous le tableau et non à droite)
Le premier "2" (choisi) ne se trouvant pas nécessairement en colonne 1, j'ai grisé la partie non utilisée (sans un 2 de "départ")
Je continue à le faire à la main, mais si vous aviez une solution (macro ou formule), ça m'aiderait pas mal....(je dirais beaucoup !)
Merci
Bon dimanche à tous.

 

Pièces jointes

• EX2.xls

  16.7 KB · Affichages: 58
• EX2.xls

  16.7 KB · Affichages: 56
• EX2.xls

  16.7 KB · Affichages: 52

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 19 Décembre 2010

• #5

Re : Matrice, décalage de colonnes

Bonjour à tous et bon W.E.

On va trouver une solution, faut pas s'inquiéter pour ça... Ca donnera certainement une formule compliquée, mais bon, c'est en train de "murir"... Pour le moment, je bloque sur les 99. Grrrrr

@ plus

 

Dernière édition: 19 Décembre 2010

Vote positif 0 Vote négatif

J

JJ1

Guest

• 19 Décembre 2010

• #6

Re : Matrice, décalage de colonnes

Bonjour Cisco,
Tu parles de mûrir avec ce temps .....??
Pour le "99" tu peux remplacer par autre chose (simplement " " ) mais je pense que ça ne va pas t'aider.
Ce n'est pas urgent, je te remercie.
En tout cas, j'imagine déjà la formule coton !
Bon AM

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 19 Décembre 2010

• #7

Re : Matrice, décalage de colonnes

Bonjour JJ1, CISCO

Si une procédure peut faire l'affaire :

VB:

Sub toto()
Dim i, j, k, l, c, t As Boolean, oDat(), sDat()
  c = [K9].Value
  oDat = [B10:R19].Value
  ReDim sDat(1 To UBound(oDat, 1), 1 To UBound(oDat, 2))
  For i = 1 To UBound(oDat, 1)
    k = 0
    l = 0
    t = False
    For j = 1 To UBound(oDat, 2) - 1
      If Not IsEmpty(oDat(c, j)) Then
        If t Then l = l + 1: sDat(i, l) = 99
        k = j
        t = True
      End If
      If k And Not IsEmpty(oDat(i, j + 1)) Then
        l = l + 1
        sDat(i, l) = j - k + 1
        t = False
      End If
    Next j
    If t Then l = l + 1: sDat(i, l) = 99
  Next i
  [B21].Resize(UBound(sDat, 1), UBound(sDat, 2)).Value = sDat
End Sub

​

ROGER2327
#4777

Jeudi 19 Sable 138 (Gravidité de Mère Ubu, ST)
29 Frimaire An CCXIX
2010-W50-7T16:57:29Z

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 19 Décembre 2010

• #8

Re : Matrice, décalage de colonnes

Bonsoir Roger, le Forum

Merci pour ton code, je vais le tester demain dès que j'aurai terminé le tableau final. Je te tiendrai au courant du résultat sur une plage assez importante.Encore merci.
Très bonne soirée à tous.

ps: Roger, nous fêterons bientôt 'Archæoptéryx !!

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 20 Décembre 2010

• #9

Re : Matrice, décalage de colonnes

Bonjour Roger2327, JJ1

Bon ben, je ne trouve pas de test simple pour mettre les 99 dans le tableau 😡... Comme Roger2327 t'a proposé une solution par macro, ca va qu'en même.

@ plus

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 20 Décembre 2010

• #10

Re : Matrice, décalage de colonnes

Bonjour Roger, Cisco, Le Forum,

Merci Cisco pour ta recherche.

J'ai un problème avec le code de Roger:
- dans l'exemple, il fonctionne parfaitement.
- dans mon fichier, j'ai adapté les plages (diminuée cause Excel 2003) et la saisie du nombre, je n'obtiens que des 1 ?
Je vais encore regarder cer AM où j'ai oublié une modification.
Merci à vous.
Je joins l'exemple tronqué.

 

Pièces jointes

• EX5.xls

  41.5 KB · Affichages: 59
• EX5.xls

  41.5 KB · Affichages: 59
• EX5.xls

  41.5 KB · Affichages: 60

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Décembre 2010

• #11

Re : Matrice, décalage de colonnes

Re…

VB:

Sub toto()
Dim i, j, k, l, c, t As Boolean, oDat(), sDat()
  c = [A59].Value
  oDat = [B9:AK58].Value
  ReDim sDat(1 To UBound(oDat, 1), 1 To UBound(oDat, 2))
  For i = 1 To UBound(oDat, 1)
    k = 0
    l = 0
    t = False
    For j = 1 To UBound(oDat, 2) - 1
      If Not (IsEmpty(oDat(c, j)) Or oDat(c, j) = "") Then
        If t Then l = l + 1: sDat(i, l) = 99
        k = j
        t = True
      End If
      If k And Not (IsEmpty(oDat(i, j + 1)) Or oDat(i, j + 1) = "") Then
        l = l + 1
        sDat(i, l) = j - k + 1
        t = False
      End If
    Next j
    If t Then l = l + 1: sDat(i, l) = 99
  Next i
  [B60].Resize(UBound(sDat, 1), UBound(sDat, 2)).Value = sDat
End Sub

La procédure proposée précédemment fonctionne avec l'exemple de données que vous aviez fournies. Si vous changez de problème, la solution change… Ne serait-il pas plus raisonnable (et plus correct vis-vis de ceux qui cherchent les solutions) de poser le vrai problème plutôt qu'un autre qui ne se pose pas ? Nous y gagnerions notre temps.​

ROGER2327
#4782

Vendredi 20 Sable 138 (Saint Sabre, allopathe, SQ)
30 Frimaire An CCXIX
2010-W51-1T13:08:32Z

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 20 Décembre 2010

• #12

Re : Matrice, décalage de colonnes

Rebonjour,

Merci Roger, ce code fonctionne parfaitement.
Il me semblait pourtant avoir été assez fidèle dans mon exemple au fichier que je suis en train de terminer? Seule les plages diffèrent et je les avais modifiées dans le code original.
Encore merci et désolé si je n'ai pas été assez précis.
Bon AM

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 21 Décembre 2010

• #13

Re : Matrice, décalage de colonnes

Bonjour à tous

En pièce jointe, le début de la solution avec des formules, mais aussi avec 4 tableaux intermédiaires 🙂confused🙂. C'est certainement améliorable, mais puisque Roger2327, notre cher ami en 'pataphysique que je salue au passage, t'a donné une solution par macro...

@ plus

 

Pièces jointes

• JJ1tableau.zip

  19.4 KB · Affichages: 21

Dernière édition: 1 Janvier 2011

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 21 Décembre 2010

• #14

Re : Matrice, décalage de colonnes

Bonsoir

Le même fichier, avec "seulement" 3 tableaux intermédiaires.

@ plus

 

Pièces jointes

• JJ1tableauter.zip

  17.5 KB · Affichages: 27

Vote positif 0 Vote négatif

J

JJ1

Guest

• 22 Décembre 2010

• #15

Re : Matrice, décalage de colonnes

Bonsoir Cisco,

Je viens d'ouvrir ton fichier (je regarderai demain soir plus en détail), quelle formule colonnes! Bravo! Tu vois que tu as réussi.
Merci car ce n'était pas évident....(le moins que l'on puisse dire !)
Bonne nuit.

 

Vote positif 0 Vote négatif