Aide vba
Résolu
delfleflille
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
Fxbrg Messages postés 710 Date d'inscription Statut Membre Dernière intervention -
Fxbrg Messages postés 710 Date d'inscription Statut Membre Dernière intervention -
10 réponses
tu peux essayer (je connais que le VBA, mais pas le VB, je sais pas si cela va t'aider):
If worksheets("nom_de_ta_feuille).range("nom_ou_coordonnées_de_ta_cellule").Formula="getctdat(..." Then
...
...
Else
...
End If
bne journée :)
If worksheets("nom_de_ta_feuille).range("nom_ou_coordonnées_de_ta_cellule").Formula="getctdat(..." Then
...
...
Else
...
End If
bne journée :)
bah ça marche pas.
en fait, si je reformule ma question, je voudrais savoir quel caractete remplace une chaine de caractere
en fait, si je reformule ma question, je voudrais savoir quel caractete remplace une chaine de caractere
je ne comprends pas la question maintenant...
Quel est le but de ce que tu veux faire, nous pourrions y voir plus clair peut-être
A ploutch`
Quel est le but de ce que tu veux faire, nous pourrions y voir plus clair peut-être
A ploutch`
Je veux que toutes les cellules dont la formule commence par getctat( quelques soient les arguments de cette fonction soient copiés et collés en valeurs
je sais pas si c'est beaucoup plus clair... :S
je sais pas si c'est beaucoup plus clair... :S
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Si tu veux verifier que le debut de la formule (sans le signe =) est egal à "getctdat" sans distinction de ce qu'il y a derrière, utilise Left et Right pour extraire le morceau dela chaine sur lequel tu veux faire la comparaison...
If Right(Left(ActiveCell.Formula, 9), 8) = "getctdat" Then
MsgBox "c'est OK"
End If
:-)
If Right(Left(ActiveCell.Formula, 9), 8) = "getctdat" Then
MsgBox "c'est OK"
End If
:-)
tu peux essayer ça... tiens moi o courant, mci
Private Sub CommandButton1_Click()
If Range("a1").Formula = "=36*6" Then
'pour tester si la formule marche
MsgBox "OK"
Range("nom_de_cellule").Select
'selectionne la cellule qui correspond à ton critère
Selection.Copy
'et finalement colle unique les valeurs dans les cellules de destination (en occurence la cellule de départ
Range("nom_de_la_cellule_où_tu_veux_copier_la_valeur_uniquement").Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
MsgBox "IL YA UN PROBLEME"
End If
End Sub
Private Sub CommandButton1_Click()
If Range("a1").Formula = "=36*6" Then
'pour tester si la formule marche
MsgBox "OK"
Range("nom_de_cellule").Select
'selectionne la cellule qui correspond à ton critère
Selection.Copy
'et finalement colle unique les valeurs dans les cellules de destination (en occurence la cellule de départ
Range("nom_de_la_cellule_où_tu_veux_copier_la_valeur_uniquement").Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
MsgBox "IL YA UN PROBLEME"
End If
End Sub
j'ai fait cette formule, d83 est une ceulle concernée par cette formule, et ça met sorry.......
Sub test()
Range("d83").Select
If Right(Left(ActiveCell.Formula, 9), 8) = "GetCtData" Then
MsgBox "ok"
Else
MsgBox "sorry"
End If
End Sub
Sub test()
Range("d83").Select
If Right(Left(ActiveCell.Formula, 9), 8) = "GetCtData" Then
MsgBox "ok"
Else
MsgBox "sorry"
End If
End Sub
