[XL-2003] Problème Rupture sur la date [Résolu]

[korni184]

Bonjour,

Je rencontre actuellement un problème au sujet d'une rupture sur la date.

En effet le format qui est collé dans mon fichier excel est le suivant :

12/02/2006 (Sauf que le problème, c'est que la date réel est 06/02/2012 et non 12/02/2006.

Et dans le code ci-dessous, cela ne fonctionne pas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sheets("Travail").select
Range("F1").select
Cpt = 0
 
Do while activecell.value <> ""
 
If activecell.offset(0,0).select = Activecell.offset(0,1).select then
 
Activecell.offset(0,1).select
cpt = cpt + 1
 
Else
 
(A ce moment là je voudrais qu'il coupe le reste des lignes restants et qu'il les colles dans ma fiche de travail2) = Travail(2).
 
End if
Loop
 
End sub

Seriez-vous m'aider ?

Merci d'avance, si possible sur le même code que j'utilise, pour bien comprendre mes erreurs.

Bàv,

[Daniel.C]

Bonsoir,

La cellule active se déplace sur la même ligne. Qu'est-ce que tu veux faire exactement ?

[jfontaine]

Bonjour,

J'ai du mal a comprendre ce que tu test avec cette ligne

Code :

If activecell.offset(0,0).select = Activecell.offset(0,1).select then

Ne serais pas cela que tu souhaites faire (Tester les valeurs)

Code :

If activecell.offset(0,0).value= Activecell.offset(0,1).value then

[korni184]

Hello,

En fait lorsqu'il y a un changement au niveau de la date, je veux qu'il envoi les données dans une autre sheet.

D'oú le :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
12345678910111213141516171819 Sheets("Travail").select
Range("F1").select
Cpt = 0
 
Do while activecell.value <> ""
 
If activecell.offset(0,0).value = Activecell.offset(0,1).value then
 
Activecell.offset(0,1).select
cpt = cpt + 1
 
Else
 
(A ce moment là je voudrais qu'il coupe le reste des lignes restants et qu'il les colles dans ma fiche de travail2) = Travail(2).
 
End if
Loop
 
End sub

Une fois qu'il détecte le changement sur la date (colonneF) je veux qu'il coupe le reste des lignes et qu'ils les collent dans une sheet "Travail(2)"

Merci d'avance

[jfontaine]

Je n'ai pas testé le code, mais ca devrait ressembler a cela

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Sh As Worksheet
Dim Cpt As Long
 
Set Sh = Sheets("Travail")
Cpt = 1
 
Do While Sh.Range("F" & Cpt).Value <> ""
 
    If Sh.Range("F" & Cpt).Value = Sh.Range("G" & Cpt).Value Then
        Cpt = Cpt + 1
    Else
        Sh.Rows(Cpt & ":" & Sh.Range("F" & Rows.Count).End(xlUp).Row).Copy Sheets("Travail(2)").Range("A1")
        Exit Do
    End If
 
Loop

[korni184]

Je viens de tester le code, cela fonctionne en modifiant deux informations :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim Sh As Worksheet
Dim Cpt As Long
 
Set Sh = Sheets("Travail")
Cpt = 1
 
Do While Sh.Range("F" & Cpt).Value <> ""
 
    If Sh.Range("F" & Cpt).Value = Sh.Range("F" & Cpt+1).Value Then
        Cpt = Cpt + 1
    Else
        Sh.Rows(Cpt & ":" & Sh.Range("F" & Rows.Count).End(xlUp).Row).copy Sheets("Travail(2)").Range("A1")
        Exit Do
    End If
 
Loop

Parcontre deux petits problèmes,

Sur la partie de code :

If Sh.Range("F" & Cpt).Value = Sh.Range("F" & Cpt+1).Value Then

J'ai ajouté un Cpt "+1" sinon le code ne fonctionne pas, par contre il copie et colle toutes les donnes, en emportant une mauvaise ligne, est-ce normal ?

Et si je veux que les données restante dans travail, se colle automatiquement dans Sheets("Travail(1)"), c'est possible ?

Merci d'avance

[korni184]

Juste pour information, si j'ai des données avec comme années 2003 et 2006.

Lorsqu'il va collé les données "2006" dans Sheets("Travail(2)"), il embarque une ligne de donnée avec année 2003

[jfontaine]

As tu essayé d'ajouter 1 à la variable Cpt de la ligne 12

Code :

Sh.Rows(Cpt +1 & ":" & Sh.Range("F" & Rows.Count).End(xlUp).Row).copy Sheets("Travail(2)").Range("A1")

[korni184]

C'est parfait !!!

Un grand merci pour votre aide !!¨

Est-ce qu'il existe un moyen de faire un message, comme une MSGBOX qui s'ouvre lorsque de l'exécution de la macro afin de faire un choix entre trois type de macro ?

Exemple :

'Titre : Démarrage de la macro
Choix 1 : Tous : (Une case à cocher)
Choix 2 : Valeur J : (Une case à cocher)
Choix 3 : Valeur J+1 (Une case à cocher)

En partant du principe, qu'on peut cocher qu'une seule case, et mettre oui ou non à la fin ?

En sachant que derière cette box, se trouverait un code simple ou je peux faire appel à mon différente macro (exemple : TriValeurJ, TriValeurJ+1, ou TriValeur ALL)

Merci d'avance pour votre réponse.

+1partout

[korni184]

J'ai trouvé ce code sur internet :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
dim MaMsgbox as new SuperMsgBox("Mon texte" .... <enfin tte les info par exemple>)
select case MaMsgBox.Showdialog()
   case ok
      if mamsgbox.chk.Checked then
         si oui ...
      else
         si non ....
      end if
   case ...
end select
(et pensez a afire un .dispose et  =nothing)
 
sinon dans ta classe de supermsgbox tu rajoute un membre static qui ressemblerait a ca :
 
prublic/friend structure supermsgboxresult
   dim result as dialogresult
   dim checked as boolean
   (autre info de retour)
end structure
 
public/Friend static function Show(texte as string ... <tous les membre des param>) as supermsgboxresult
   dim toto as supermsgbox(<les info comme il faut>)
   dim tata as supermsgboxresult
 
   tata.result = toto.ShowDialog()
   tata.checked = toto.chk.Checked
   (autre info a recup, pensez a verifié selon les cas si le dialog result est bien le bon car il peut y avoir des contrainte)
 
   return tata
end function

Comment je peux le formater pour attribuer 3 choix ?

Tous
Valeur J
Valeur J+1

Et trois fonctions attachés à ces choix .

Tous : TriValeurAll
Valeur J : TriValeur J
Valeur J+1 : TriValeur J+1

Avec un oui/non pour valider.

Merci d'avance pour votre aide

Bàv,