Bloquer sur une insertion de formule

[kromitou]

Bonsoir...

une âme charitable pour me pousser une petite infos. SVP

je suis entrain d'essayer de me faire une petite base de donnée, ça fonctionne pas trop mal...aucun mérite d'ailleurs.

Bref, il y a juste un p'tit soucis lorsque je veux qu'une formule se repéte à chaque fois dans une cellule .

ma formule ne fonctionne qu'une fois sur la premiére ligne rentré, ensuite..rien

Voilà voila ... (petit fichier joint.....)

Merci d'avance...

 

[Larson]

Re : Bloquer sur une insertion de formule

Bonjour,

est ce que c'est ce que tu souhaitais ?

 

[kjin]

Re : Bloquer sur une insertion de formule

Bonjour,
De ce que j'ai compris :
Teste si rien en ligne 2 de la base de données
- si oui, copie la colonne et écrit la formule en Q2
- si non, copie la colonne sur la première ligne vide et recopie la formule en Q depuis la cellule précédente

Sub transpose_dans_tableau()
Sheets("Formulaire").Range("B1:B21").Copy
With Sheets("base de données")
x = .Range("A65000").End(xlUp).Row + 1
.Range("A" & x).PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
If x = 2 Then
Range("Q" & x).FormulaLocal = "=SI(ET(O2>0;P2>0);O2&""/""&P2;SI(ET(O2>0;P2="""");""Ø""&O2;""""))"
Else
.Range("Q" & x - 1).Copy
.Range("Q" & x).PasteSpecial Paste:=xlAll
Sheets("Formulaire").Range("B1:B21").ClearContents
End If
Application.CutCopyMode = False
Sheets("Base de données").Activate
End With
End Sub

A+
kjin

 

[kromitou]

Re : Bloquer sur une insertion de formule

Hum hum.........

Merci LARSON & KJIN

bah...c'est trés bien ..Larson c'est exactement ça..
KJIN ça va me servir aussi.

Donc merci à vous 2.


@@@+++