Faires afficher dans des cellules...

[Guido]

Bonsoir le Forum

J'aimerais faire afficher les valeurs qui se trouvent dans les cellules des collones C D E et F dans les

collones AA AB AC et AD

sachant que les données se trouvant dans la A.B.C.D.E.F.G et H sont decallées selon

le nombres de courses par villes….

Voir le fichier

Merci pour votre aide

Guido

 

[mapomme]

Re : Faires afficher dans des cellules...

Bonjour Guido,

Un essai dans le fichier joint.

La macro pour afficher les titres dans la colonne V a été réécrite. Elle va rechercher successivement tous les titres de la colonne A commençant par un R et suivi d'un chiffre pour les copier dans la colonne V.

Pour le report des valeurs, on utilise 2 formules.

Une formule n°1 dans la cellule W16 à copier/coller (en formule) vers les cellules X16 à Z16 :

=SI(NON(ESTNUM($V8));"";SI(INDEX($A:$A;$V8+EQUIV(DECALER($V8;-$V8;0);$A:$A;0))=$V8;INDEX(N:N;$V8+EQUIV(DECALER($V8;-$V8;0);$A:$A;0));""))

Une formule n°2 dans la cellule AA16 à copier/coller (en formule) vers les cellules AB16 à AD16 :

=SI(NON(ESTNUM($V8));"";SI(INDEX($A:$A;$V8+EQUIV(DECALER($V8;-$V8;0);$A:$A;0))=$V8;INDEX(E:E;$V8+EQUIV(DECALER($V8;-$V8;0);$A:$A;0));""))

Ensuite copier la plage W16:AD16 pour la coller (en formule) sur la plage W17:AD50.



Le code de la macro pour afficher les titres de la colonne A vers la colonne V :

Sub Macro1()
Dim derLigne As Long, i As Long, n As Long
  With Feuil1
    derLigne = .Cells(.Rows.Count, "a").End(xlUp).Row
    For i = 5 To derLigne
      If .Cells(i, "a") Like "R#*" Then
        .Cells(7 + n * 11, "v") = .Cells(i, "a").Value
        n = n + 1
      End If
    Next i
  End With
End Sub

 

[Guido]

Re : Faires afficher dans des cellules...

Re

Bonjour mapomme

Merci, pour tes reponses..

Comme d'hab... tu est a la hauteur avec les formules et macros

Merci

Amitiés

Guido