date format texte et tirage formule

[sbaccega]

Bonjour,

J'aimerai vous soumettre deux petits pb, ils sont illustrés dans le fichier joint.

1- J'utilise une formule qui fait appel à une date sous format texte, les dates que je dois utiliser s'affiche de manière dynamique de la C1-->G1, pour les avoir en texte,
je les copie ds un bloc note puis je les colle de C2-->G2.(les formules sont de C3-->G3)
Y a t'il un moyen de rendre cela automatique?

2- J'ai chercher mais je n'ai pas trouvé de maniere satisfaisante un moyen de tirer automatiquement toutes les formules
de mon tableau tand que J'ai des données ds la colonne 1 (par un autre moyen que de mettre la formule :=SI(A2<>"";maformule;""),
en sachant que sur certaines colonne il y a des formules et sur d'autres des données.
Quelqu'un a cela?

Merci
Bon WE
Stephane

 

[sbaccega]

Re : date format texte et tirage formule

Houp's il est la le fichier....

 

[JHA]

Re : date format texte et tirage formule

Bonsoir à tous,

Pour ta 1ère question, tu peux mettre:

=TEXTE(MAINTENANT();"jj/mm/aa")

JHA

 

[sbaccega]

Re : date format texte et tirage formule

Merci Jha,

Super, ca marche nickel, je peux même l'integrer directement dans ma formule, c'est encore mieux.

C'est fin cool.
Stef

 

[sbaccega]

Re : date format texte et tirage formule

Bonjour,

Je voudrais ajouter une précision pour le point 2. Les données sont dynamiques et le nombre de lignes peut augmenter ou diminuer en fonction de mes requêtes, pour ne pas alourdir mon fichier j'aimerai que les formules ne soient appliquer que sur les lignes ou il y a ces donnés.
Voilà voilà.
En tout cas merci pour votre aide.
Bon WE
Stéphane

 

[sbaccega]

Re : date format texte et tirage formule

Bonjour,
Pour le point 2, si ma demande n'est pas realisable, pouvez vous me le dire svp?
Merci et bonne semaine
Stef

 

[JHA]

Re : date format texte et tirage formule

Bonjour Stephane, le forum,

Pour la question 2, il faut passer par une macro (VBA) pour inclure un calcul sous condition sans passer par une formule.
Mais moi et les macros on n'est pas copain alors je laisse la main aux VBistes qui solveront ton problème.

JHA

 

[sbaccega]

Re : date format texte et tirage formule

Bonjour Jha,
Merci pour ton commentaire, bon be je vais espere qu'un VBistes passe par là.
Bonne semaine
Stef

 

[sbaccega]

Re : date format texte et tirage formule

Bonjour,

J'ai enfin trouvé une solution pour le point 2. (voir ci dessous, j'ai adapté ca d'une réponse trouvé sur un forum)
Est ce que quelqu'un pourrait m'indiquer comment effacer au préalable les formules apres la ligne 3 histoire de garder un fichier propre a chaque extraction ?

Sub TIRAGE()
'on compte le nombre de cellules non vide a partir de e3
derniere_ligne = Range("e3").End(xlDown).Row
' ou derniere_ligne = ActiveSheet.UsedRange.Rows.Count
Range("B3").AutoFill Destination:=Range("B3:B" & derniere_ligne), Type:=xlFillDefault
Range("c3").AutoFill Destination:=Range("c3:c" & derniere_ligne), Type:=xlFillDefault
Range("d3").AutoFill Destination:=Range("d3:d" & derniere_ligne), Type:=xlFillDefault
Range("m3").AutoFill Destination:=Range("m3:m" & derniere_ligne), Type:=xlFillDefault
Range("w3").AutoFill Destination:=Range("w3:w" & derniere_ligne), Type:=xlFillDefault
Range("x3").AutoFill Destination:=Range("x3:x" & derniere_ligne), Type:=xlFillDefault
Range("y3").AutoFill Destination:=Range("y3:y" & derniere_ligne), Type:=xlFillDefault
End Sub

Encore merci aux participants de ce forum.
Stef

 

[cbea]

Re : date format texte et tirage formule

Bonsoir sbaccega, JHA et le forum,

Voici une solution pour le point 2 en code VBA.
J'ai ajouté un bouton pour recopier les formules de la ligne 3 vers les lignes suivantes.

 

[sbaccega]

Re : date format texte et tirage formule

bonsoir Cbea,
Merci pour cet exemple, il fonctionne parfaitement (au passage j'ai regarder de près le code que tu m'as posté hier pour un autre problème, c'est vraiment du beau boulot, très propre, encore merci pour le temps passé, les commentaires sont vraiment utile pour un novice comme moi)
Sinon pour ce cas, connais tu un moyen d'effacer au préalables les formules copiées lors des précédentes requêtes, car le nombre de ligne peut etre plus ou moins important?
A+
Stef

 

[cbea]

Re : date format texte et tirage formule

Bonjour Stef,

Dans la procédure, j'ai mis le code nécessaire pour effacer toutes les lignes de formules (sauf pour la première ligne).

Voici la ligne de code :

    ' Vider les formules après la première ligne
    Range("C" & debLig + 1 & ":G" & derLig).ClearContents

 

[sbaccega]

Re : date format texte et tirage formule

Bonjour cbea, bonjour le forum
Ca y est j'ai maintenant appliqué ta ligne de code et tous mes problèmes sont réglés.
Mille merci, encore bravo et a peut être a bientôt.
(Le Vba commence un petit peu a rentrer ...)
Bonne journée/nuit ;-)
Stef