excusez moi d'insister

D

david

Guest
Bonjour a toutes et a tous,

je relance ma question, en esperant ne pas etre trop lourd ?

dans une feuille excel je voudrai rechercher via le vba (bouton) une cellule contenant la formule : =dep
le resultat de cette formule represente la somme de plusieurs chiffres
je voudrai copier le resultat de cette formule a la place de la formule .

faire une copier collage special valeur mais tout cela par le vba .

cela est il possible ? et si oui comment ?

merci d'avance pour votre aide .

dj
 
@

@+Thierry

Guest
Recherche de String dans Formule et remplacement par Valeur seule.

Salut David

Si il y a un truc que je n'apprécie pas c'est d'être obligé de tourner en rond dans les fils pour suivre et comprendre de quoi on parle (c'est beaucoup plus long que d'écrire une procédure VBA !)

Donc çà démarre ===> Ici Ta Question et Ma Réponse

Ca ne convient pas Tes Explications

Et donc maintenant aujourd'hui un nouveau fil. En plus avec un sujet qui ne signifie rien ...

Tu méritrais que quelqu'un te réponde :"Selection.PasteSpecial Paste:=xlValues" et tu serais bien avancé !!

Bon écoute on va pas y passer 107 ans avec to "=dep" ....

Je t'ai fait ceci... Ce devrait convenir........ Toutefois attention à la taille de la plage à couvrir.... Plus ce sera grand, plus ce sera long !


Sub Kill_Dep()
Dim Maplage As Range
Dim FirstADdress As String
Dim C As Object
Dim Cherche As String

Cherche = "=dep"

On Error Resume Next 'si il n'y a qu'un =dep et que c'est l'ActiveCell

Set Maplage = ThisWorkbook.Sheets("Sheet1").Range("A1:D25") 'à ajuster à ta plage
With Maplage
Set C = .Find(Cherche, LookIn:=xlFormulas)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
C = C.Value
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress
End If
End With
End Sub


Voilà David...

A l'avenir essaie de respecter ces quelques règles simples.

@+Thierry
 
A

andré

Guest
Salut Thierry,

Tiens, il y a depuis longtemps, ... quoi ? ... qu'on ne s'est plus entendu, ... non, ... que tu ne t'es plus faché.

Tu sais que c'est mauvais pour la santé, ... mon grand'père avait le même défaut, ... il n'a pas vécu longtemps (snif, snif).

Lol à part, tu as entièrement raison.
C'est déjà bon qu'on se décarcasse (Ducrot, par ici la monnaie), si de plus on nous demande de faire du gymkana, à notre âge, ... surtout après avoir courru les filles ...

Que cela ne t'empêche pas de passer une bonne soirée, surtout que la Saint Valentin approche, ... et que nous nous devons de fêter nos souvenirs par quelques démos (informatiques, évidemment) de choix.

Calme, calme, mon garçon, la vie c'est autre chose que cela !

André.
 
D

david

Guest
MERCI THIERRY,

et encore toutes mes excuses si je t'ai fait perdre du temps
je n'avais pas compris, je suis debutant en vba, j'aimerai augmenter mes connaissances en sortant des livres qui sont tres rebarbatifs et compliqués
je pensais que ce forum s'adressait a tout le monde et sutout a tout niveau .

pour information j'ai quand meme trouve la solution de mon pb :

Range("C37:N37").Select
Selection.Find(What:="=dep", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

je vais continuer de mon cote a me perfectionner et je reviendrai dans ce forum quand mon niveau de connaissance en vba sera bien meilleur

je presente encore une fois toutes mes excuses au forum et je vais de ce pas chercher un forum ou un salon ou j'aurai plus ma place .

sans aucune amertume et rancune

bonne continuation a tous

@++

dj.run@wanadoo.fr
 

Discussions similaires


Haut Bas