oliver7520
Messages postés19Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 4 septembre 2007
-
6 juil. 2007 à 17:02
oliver7520
Messages postés19Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 4 septembre 2007
-
9 juil. 2007 à 10:33
bonjour,
petit souci sur un copier coller. j'essaye de faire un code qui sous 3 conditions de date dans 3 onglets réalise ou non une couper /coller.
quelques soient les 3 dates considérées, le code ci-dessous effectuer le copier coler
. No compredro
Sub correlation1()
If Sheets("correlationindice").Range("b1") = Sheets("Correlation").Range("b1") And (Sheets("correlationindice").Range("b1") <> Sheets("histoCorrélation").Range("D1")) Then
oliver7520
Messages postés19Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 4 septembre 2007 6 juil. 2007 à 17:20
j'ai fait une modif de parenthèse :
Sub correlation1()
If (Sheets("correlationindice").Range("b1") = Sheets("Correlation").Range("b1")) And (Sheets("correlation").Range("b1") <> Sheets("histocorrélation").Range("D1")) Then
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 20112 6 juil. 2007 à 17:25
If (Sheets("correlationindice").Range("b1") = Sheets("Correlation").Range("b1") And Sheets("correlation").Range("b1") <> Sheets("histocorrélation").Range("D1")) Then
oliver7520
Messages postés19Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 4 septembre 2007 6 juil. 2007 à 17:44
game over avec les corrections proposées
Sub correlation1()
If (Sheets("correlationindice").Range("b1").Value = Sheets("Correlation").Range("b1").Value And Sheets("correlation").Range("b1").Value <> Sheets("histocorrélation").Range("D1").Value) Then
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 6 juil. 2007 à 17:45
Je suis à peu près certains qu'un simple msgbox pour afficher les valeurs utilisées par sa condition suffira à le faire sursauter...(il y a fort à parier qu'elles ne sont pas celles qu'il croit !)
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 20112 6 juil. 2007 à 17:53
Ayant conservé ton fichier, j'ai testé ... pour moi il n'y a aucun problème le couper/coller s'exécute que lorsque les conditions sont remplis
A mon avis la qualité de tes dates est en causes ... ça me rappelle un peu ton problème précédent
Vérifie que ce sont des dates au format date
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 20112 6 juil. 2007 à 18:04
Les dates dans les cellules testées sont elles le résultat d'une formule ou une entrée manuelle ?
Il n'y ap as de raison pour que cela fonctionne sur ma machine et pas sur la tienne si les données sont de même qualité - Adresse moi ton fichier à l'adresse que je t'ai donné pour ton Pb précédent - Qui entre nous est du m^me ordre quant à la solution (Structure et qualité de donnée)
Dans 10' je suis parti
JML
Partageons notre savoir et nos acquis
JM247L
Messages postés443Date d'inscriptionmardi 27 mars 2007StatutMembreDernière intervention 1 mars 20112 6 juil. 2007 à 18:35
As tu remarqué que la date dans la feuille "Histocorrélation" n'est pas le 05/07/07 mais le 05/07/06
Ca fait quoi ? 2 heures qu'on te demande de vérifier tes données
Ce qui m'amène à faire dujmfmarques en ajoutant à: (Structure et qualité de donnée & RIGUEUR)
Bon week end
JML
Partageons notre savoir et nos acquis
oliver7520
Messages postés19Date d'inscriptionvendredi 29 juin 2007StatutMembreDernière intervention 4 septembre 2007 9 juil. 2007 à 10:33
bonjour
voilà un code qui fonctionne. merci de votre aide.
olivier
Sub correlation1()
If (Sheets("correlationindice").Range("b1").Value = Sheets("Correlation").Range("b1").Value And Sheets("correlation").Range("b1").Value <> Sheets("histocorrélation").Range("D1").Value) Then