VBA répétition de valeur dans des cellules .
Résolu/Fermé
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
-
13 avril 2012 à 13:02
krazykat Messages postés 11238 Date d'inscription jeudi 18 janvier 2007 Statut Modérateur Dernière intervention 10 octobre 2019 - 30 avril 2012 à 16:26
krazykat Messages postés 11238 Date d'inscription jeudi 18 janvier 2007 Statut Modérateur Dernière intervention 10 octobre 2019 - 30 avril 2012 à 16:26
A voir également:
- VBA répétition de valeur dans des cellules .
- Excel additionner des cellules - Guide
- Verrouiller des cellules excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. ✓ - Forum Jeux vidéo
3 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
13 avril 2012 à 13:27
13 avril 2012 à 13:27
Bonjour,
Sheets("feuil1").Range(Cells(ligne_engin + 1, sem_debut), Cells(ligne_engin + 1, sem_fin)).Interior.ColorIndex = 3
Bonne suite
Sheets("feuil1").Range(Cells(ligne_engin + 1, sem_debut), Cells(ligne_engin + 1, sem_fin)).Interior.ColorIndex = 3
Bonne suite
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
40
13 avril 2012 à 13:44
13 avril 2012 à 13:44
Bon sang, ok !!!
je me serais pas douté que je devais re-déclaré cells encore une fois !! :)
un grand merci, je vais beaucoup avancé now.
tu pige bien en vba ? j'ai un autre soucis qui apparaît ! :)
je me serais pas douté que je devais re-déclaré cells encore une fois !! :)
un grand merci, je vais beaucoup avancé now.
tu pige bien en vba ? j'ai un autre soucis qui apparaît ! :)
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
13 avril 2012 à 13:50
13 avril 2012 à 13:50
Re,
Dites toujours!
Dites toujours!
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
40
13 avril 2012 à 13:57
13 avril 2012 à 13:57
soyons indulgents, c'est mon premier code vba.
https://pastebin.com/9Y8bJ8nf
En gros, j'ai des informations dans la premieres feuille "saq Extérieur" que je récupere en fonction de l'engin désiré. et j'implémente une deuxieme feuille avec les données.
Jusque là, rien de bien dur.
Par contre, j'ai plusieur ligne dans "saq extérieur" qui ont le même engin, et donc avec le code actuel, vu qu'il le trouve déja une fois, il s'arrête aprés avoir créer la ligne.
(bon je sais plus bas déja ca va pas, il réécrit mal les infos, mais 1 chose à la fois)
si tu as une idée de pq il s'arrête à la premiere ligne rencontré
https://pastebin.com/9Y8bJ8nf
En gros, j'ai des informations dans la premieres feuille "saq Extérieur" que je récupere en fonction de l'engin désiré. et j'implémente une deuxieme feuille avec les données.
Jusque là, rien de bien dur.
Par contre, j'ai plusieur ligne dans "saq extérieur" qui ont le même engin, et donc avec le code actuel, vu qu'il le trouve déja une fois, il s'arrête aprés avoir créer la ligne.
(bon je sais plus bas déja ca va pas, il réécrit mal les infos, mais 1 chose à la fois)
si tu as une idée de pq il s'arrête à la premiere ligne rencontré
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
40
13 avril 2012 à 13:59
13 avril 2012 à 13:59
bon la, tel qu'el il boucle dans le vide en plus.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
13 avril 2012 à 14:13
13 avril 2012 à 14:13
Re,
Je regarde votre affaire.
A+
Je regarde votre affaire.
A+
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
40
13 avril 2012 à 14:16
13 avril 2012 à 14:16
ok, merci. si vous voulez une partie des feuilles source et destination, je peux vous en donner.
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
16 avril 2012 à 14:58
16 avril 2012 à 14:58
Re,
ok, par contre j'ai vu que tu avais mis dans la ligne qui est créer : l'opération
Hors c'est : valeur = ("RA à " & etb)
qu'il me faudrait mettre... enfin je verrais ca plus tard.
Samedi, j'ai pris ce code
Sub Macrosaq()
Application.ScreenUpdating = False
' Macro4 Macro
' Macro enregistrée le 13/04/2012 par 8606174m
'Information :
' While : Le While est une boucle qui fait le tour des informations contenu dans les cellules
' ~ : Ce sigle au début d'un commentaire indique la fermeture d'une requête (précédemment commenté)
'Paramètrage des données de base :
i = 2
'On Selectionne la feuille "SAQ extérieur" (like : ctrl+A)
Sheets("SAQ Extérieur").Select
'On va référencer les données en fonction du n° de l'engin : no_engin & de sa série
no_engin = format_engin(Sheets("SAQ Extérieur").Cells(i, 1).Value, Sheets("SAQ Extérieur").Cells(i, 2).Value)
'On relève l'opération de maintenance de l'engin selectionné précedemment.
Dim operation As String
operation = Sheets("SAQ Extérieur").Cells(i, 5).Value
'On récupère la valeur de la durée d'immobilisation
Dim duree7j As String
duree7j = Sheets("SAQ Extérieur").Cells(i, 13).Value
'On récupère les infos de la semaine et de l'année d'entrée
annee_entree = Sheets("SAQ Extérieur").Cells(i, 4).Value 'Retourne la donnée brut (ex: jj/mm/aaaa hh:mm:ss)'.
Dim A1 As String
A1 = Mid(annee_entree, 7, 4) 'Extrait de "annee_entree" uniquement l'année en question'.
semaine_entree = Sheets("SAQ Extérieur").Cells(i, 14).Value 'Retourne le numéro de la semaine d'entrée'.
annee_rat = Sheets("SAQ Extérieur").Cells(i, 7).Value 'Retourne la donnée brut (ex: jj/mm/aaaa hh:mm:ss)'.
Dim a2 As String
a2 = Mid(annee_rat, 7, 4) 'Extrait de "annee_rat" uniquement l'année en question'.
semaine_rat = Sheets("SAQ Extérieur").Cells(i, 15).Value 'Retourne le numéro de la semaine de remise à temps'.
'On passe à la ligne d'après
While Sheets("SAQ Extérieur").Cells(i, 1) <> ""
i = i + 1
Wend
'On refais la selection de la feuille "SAQ Extérieur"
Sheets("SAQ Extérieur").Select
Sheets("SAQ Extérieur").Range("A2:u" & i).Select
' -------------------------------------------------------------------------------------'
' 2ème Etapes : '
' Vérification que c'est un engin listé dans la feuille "Post_ext" '
' On collecte ainsi les données "année & semaines " de début et de fin d'intervention. '
' -------------------------------------------------------------------------------------'
' PS: On as une particularité pour les engins étant immobilisé depuis 2011. '
'--------------------------------------------------------------------------------------'
'Remplissage tableau prog
ligne_engin = 0 'On saisie une valeur NULL'
ligne = 5 'On commence à vérifier à partir de la ligne 6 (début des données brut)'
col = 5
'On selectionne la feuille "Post_ext"
Sheets("Post_ext").Select
'On fait la boucle pour récupérer les données de la feuille "Post_ext"
While Sheets("Post_ext").Cells(ligne, 2) <> ""
'Si on trouve une ligne dont la valeur est égale au N° de l'engin recherché :
If Sheets("Post_ext").Cells(ligne, 4).Value = no_engin Then
'On défini par positif la présence de l'engin dans la flotte prog.
'La ligne de l'engin dans la feuille est donc selectionné et identifié en "ligne_engin".
ligne_engin = ligne
'---------------------------------------------------'
' '
'---(info)--' Particularité pour l'année 2011 '
' '
'---------------------------------------------------'
'Si on trouve l'année identique à l'année présenté en annee_entree :
If A1 = 2011 Then
Dim A2012 As String
A2012 = Replace(annee_entree, annee_entree, "01/01/2012")
'On Extrait de "annee_entree" uniquement l'année en question'
A1 = Mid(A2012, 7, 4)
semaine_entree = 1
'------------------------------------'
'MsgBox ("Date 2011 Modifié en 2012") '
' Flag de test de modification '
' (Ne pas en tenir compte) '
'------------------------------------'
End If
'---------------------------------------------------'
' '
'---(info)--' Fin de Particularité pour l'année 2011 '
' '
'---------------------------------------------------'
'On saisie la valeur de A6 mais dans un String afin d'avoir une valeur Brut.
Dim A6 As String
A6 = Sheets("Post_ext").Cells(2, col).Value
'Si on trouve l'année identique à l'année présenté en annee_entree :
If A1 = A6 Then
'Si la cellule est identique à semaine_entree :
If (Sheets("Post_ext").Cells(4, col).Value = semaine_entree) Then
'------------------------------------------'
' Maintenant qu'on as la date de début '
' On prend la date de fin '
' d'opération '
'------------------------------------------'
'On récupère les infos de la semaine et de l'année Remise à Temps
col_fin = 5 'On commence à vérifier la fin à partir de la première colonne d'intervention.
sem_fin = 5 'On commence à vérifier la fin à partir de la première colonne d'intervention.
'On fait une boucle pour trouver la cellule de fin d'intervention
While Sheets("Post_ext").Cells(ligne_engin, col_fin) <> ""
'on cherche la cellule correspondant à l'année de "remise à temps".
If (Sheets("Post_ext").Cells(2, col_fin) = a2) Then
'une fois trouvé, on cherche la cellule correspondante à la semaine de "remise à temps".
If (Sheets("Post_ext").Cells(4, sem_fin) = semaine_rat) Then
'Une fois trouvé, on l'identifie pour plus tard
range_fin = getCell(ligne_engin, sem_fin)
End If '~Si on trouve pas la semaine de rat, on rajoute +1 et on passe à la colonne suivante :
sem_fin = sem_fin + 1
End If '~Si on trouve pas l'année de rat, on rajoute +1 et on passe à la colonne suivante :
col_fin = col_fin + 1
Wend
' ---------------------------------------------------------------------------------------------'
' 3ème Etapes : '
' Désormais on va inscrire la ligne de l'engin en fonction des données collectés '
' Et si jamais la ligne contient déja une valeur, on écrira dans une nouvelle ligne au dessous '
'----------------------------------------------------------------------------------------------'
'On vérifie si l'opération de saisi et la même que dans sa ligne de destination'
If Sheets("Post_ext").Cells(ligne_engin, col).Value = operation Then
'---------------------------------------------------------------------------------'
'Si c'est le cas, alors on ne va pas mettre à jour les données pour cette ligne. '
'---------------------------------------------------------------------------------'
Else
'sinon on vérifie la ligne suivante pour savoir si elle appartient elle aussi au même engin'
If Sheets("Post_ext").Cells(ligne_engin + 1, 4).Value = no_engin Then
'Si elle appartient aussi au même engin, on recommence la même opération :
'On vérifie si l'opération a écrire se situe dans la cellule "operation"
If InStr(1, Sheets("Post_ext").Cells(ligne_engin + 1, col).Value, Trim(operation), 1) > 0 Then
ligne_engin = ligne_engin + 1
'---------------------------------------------------------------------------------'
'Si c'est le cas, alors on ne va pas mettre à jour les données pour cette ligne. '
'---------------------------------------------------------------------------------'
Else ' Si ce n'est pas le cas, alors on va vérifier si la plage d'intervention de la ligne n'est pas vide :
range_debut = getCell(ligne_engin + 1, col)
If IsEmpty(range_debut) = True Then
'---------------------------------------------------------------------------------'
'Si c'est le cas, alors on ne va pas mettre à jour les données pour cette ligne. '
'---------------------------------------------------------------------------------'
Else 'Elle contient une information, alors :
'---------------------------------------------------------------------------------'
' on as trouvé l'emplacement pour l'intervention alors '
' on écrit les données dans la ligne en question. '
'---------------------------------------------------------------------------------'
'-----------------'
' création ligne '
'-----------------'
ligne_d_ajout = "" & (ligne_engin + 1) & ":" & (ligne_engin + 1) & ""
Sheets("Post_ext").Select
Rows(ligne_d_ajout).Select
Selection.Insert Shift:=xlDown
range_debut = getCell(ligne_engin + 1, col)
Sheets("Post_ext").Cells(ligne_engin + 1, 1).Value = Sheets("Post_ext").Cells(ligne_engin, 1).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 2).Value = Sheets("Post_ext").Cells(ligne_engin, 2).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 3).Value = Sheets("Post_ext").Cells(ligne_engin, 3).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 4).Value = Sheets("Post_ext").Cells(ligne_engin, 4).Value
Sheets("Post_ext").Cells(ligne_engin + 1, col).Value = operation
ligne_engin = ligne_engin + 1
End If '~End de : écrit les données.
End If
Else 'Si ce n'est pas la ligne du même engin :
'---------------------------------------------------------------------------------'
' On n'as pas trouvé de place dans les précédentes lignes de l'engin '
' pour pouvoir écrire les données dans la ligne en question. '
' alors on va simplement insérer une nouvelle ligne '
' pour l'engin qui nous interesse.
'---------------------------------------------------------------------------------'
'-----------------'
' création ligne '
'-----------------'
ligne_d_ajout = "" & (ligne_engin + 1) & ":" & (ligne_engin + 1) & ""
Sheets("Post_ext").Select
Rows(ligne_d_ajout).Select
Selection.Insert Shift:=xlDown
range_debut = getCell(ligne_engin + 1, col)
'--------------------------'
' Inscriptions des données '
'--------------------------'
Sheets("Post_ext").Cells(ligne_engin + 1, 1).Value = Sheets("Post_ext").Cells(ligne_engin, 1).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 2).Value = Sheets("Post_ext").Cells(ligne_engin, 2).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 3).Value = Sheets("Post_ext").Cells(ligne_engin, 3).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 4).Value = Sheets("Post_ext").Cells(ligne_engin, 4).Value
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Value = operation
'Si la durée d'immobilisation de la cellule 13 : "Jour d'immob" est supérieur ou égal à 6Jours
If (duree7j > 6) Then
'On change la couleur de la ligne
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Interior.ColorIndex = 3
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Font.Bold = True
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Font.ColorIndex = 52
End If
'Sheets("Post_ext").Cells(ligne_engin + 1, col).Font.Bold = True
End If '~Fin de la création de la ligne'
End If '~Fin de : Si même opération'
End If '~Fin de : identique à semaine_entree, Sinon on passe à la colonne suivante afin de trouvé la semaine correspondante'
col = col + 1
End If '~Fin de : Si même année, Sinon on passe à la colonne suivante afin de trouvé l'année correspondante'
col = col + 1
ligne = ligne + 1
i = i + 1
End If '~Si on n'as pas trouvé l'engin correspondant, on rajoute +1 et on consulte la ligne suivante:'
Wend
MsgBox ("Boucle Terminé avec succès")
End Sub
Donc je vais analyser le code du fichier Tableau5 - Copie.xls puisqu'il y des differences.
'On refais la selection de la feuille "SAQ Extérieur"
.Range("A2:u" & DLnVCA).Select '?????????????? pourquoi
Je sais pas ^^
Qui va savoir??
ok, par contre j'ai vu que tu avais mis dans la ligne qui est créer : l'opération
Hors c'est : valeur = ("RA à " & etb)
qu'il me faudrait mettre... enfin je verrais ca plus tard.
Samedi, j'ai pris ce code
Sub Macrosaq()
Application.ScreenUpdating = False
' Macro4 Macro
' Macro enregistrée le 13/04/2012 par 8606174m
'Information :
' While : Le While est une boucle qui fait le tour des informations contenu dans les cellules
' ~ : Ce sigle au début d'un commentaire indique la fermeture d'une requête (précédemment commenté)
'Paramètrage des données de base :
i = 2
'On Selectionne la feuille "SAQ extérieur" (like : ctrl+A)
Sheets("SAQ Extérieur").Select
'On va référencer les données en fonction du n° de l'engin : no_engin & de sa série
no_engin = format_engin(Sheets("SAQ Extérieur").Cells(i, 1).Value, Sheets("SAQ Extérieur").Cells(i, 2).Value)
'On relève l'opération de maintenance de l'engin selectionné précedemment.
Dim operation As String
operation = Sheets("SAQ Extérieur").Cells(i, 5).Value
'On récupère la valeur de la durée d'immobilisation
Dim duree7j As String
duree7j = Sheets("SAQ Extérieur").Cells(i, 13).Value
'On récupère les infos de la semaine et de l'année d'entrée
annee_entree = Sheets("SAQ Extérieur").Cells(i, 4).Value 'Retourne la donnée brut (ex: jj/mm/aaaa hh:mm:ss)'.
Dim A1 As String
A1 = Mid(annee_entree, 7, 4) 'Extrait de "annee_entree" uniquement l'année en question'.
semaine_entree = Sheets("SAQ Extérieur").Cells(i, 14).Value 'Retourne le numéro de la semaine d'entrée'.
annee_rat = Sheets("SAQ Extérieur").Cells(i, 7).Value 'Retourne la donnée brut (ex: jj/mm/aaaa hh:mm:ss)'.
Dim a2 As String
a2 = Mid(annee_rat, 7, 4) 'Extrait de "annee_rat" uniquement l'année en question'.
semaine_rat = Sheets("SAQ Extérieur").Cells(i, 15).Value 'Retourne le numéro de la semaine de remise à temps'.
'On passe à la ligne d'après
While Sheets("SAQ Extérieur").Cells(i, 1) <> ""
i = i + 1
Wend
'On refais la selection de la feuille "SAQ Extérieur"
Sheets("SAQ Extérieur").Select
Sheets("SAQ Extérieur").Range("A2:u" & i).Select
' -------------------------------------------------------------------------------------'
' 2ème Etapes : '
' Vérification que c'est un engin listé dans la feuille "Post_ext" '
' On collecte ainsi les données "année & semaines " de début et de fin d'intervention. '
' -------------------------------------------------------------------------------------'
' PS: On as une particularité pour les engins étant immobilisé depuis 2011. '
'--------------------------------------------------------------------------------------'
'Remplissage tableau prog
ligne_engin = 0 'On saisie une valeur NULL'
ligne = 5 'On commence à vérifier à partir de la ligne 6 (début des données brut)'
col = 5
'On selectionne la feuille "Post_ext"
Sheets("Post_ext").Select
'On fait la boucle pour récupérer les données de la feuille "Post_ext"
While Sheets("Post_ext").Cells(ligne, 2) <> ""
'Si on trouve une ligne dont la valeur est égale au N° de l'engin recherché :
If Sheets("Post_ext").Cells(ligne, 4).Value = no_engin Then
'On défini par positif la présence de l'engin dans la flotte prog.
'La ligne de l'engin dans la feuille est donc selectionné et identifié en "ligne_engin".
ligne_engin = ligne
'---------------------------------------------------'
' '
'---(info)--' Particularité pour l'année 2011 '
' '
'---------------------------------------------------'
'Si on trouve l'année identique à l'année présenté en annee_entree :
If A1 = 2011 Then
Dim A2012 As String
A2012 = Replace(annee_entree, annee_entree, "01/01/2012")
'On Extrait de "annee_entree" uniquement l'année en question'
A1 = Mid(A2012, 7, 4)
semaine_entree = 1
'------------------------------------'
'MsgBox ("Date 2011 Modifié en 2012") '
' Flag de test de modification '
' (Ne pas en tenir compte) '
'------------------------------------'
End If
'---------------------------------------------------'
' '
'---(info)--' Fin de Particularité pour l'année 2011 '
' '
'---------------------------------------------------'
'On saisie la valeur de A6 mais dans un String afin d'avoir une valeur Brut.
Dim A6 As String
A6 = Sheets("Post_ext").Cells(2, col).Value
'Si on trouve l'année identique à l'année présenté en annee_entree :
If A1 = A6 Then
'Si la cellule est identique à semaine_entree :
If (Sheets("Post_ext").Cells(4, col).Value = semaine_entree) Then
'------------------------------------------'
' Maintenant qu'on as la date de début '
' On prend la date de fin '
' d'opération '
'------------------------------------------'
'On récupère les infos de la semaine et de l'année Remise à Temps
col_fin = 5 'On commence à vérifier la fin à partir de la première colonne d'intervention.
sem_fin = 5 'On commence à vérifier la fin à partir de la première colonne d'intervention.
'On fait une boucle pour trouver la cellule de fin d'intervention
While Sheets("Post_ext").Cells(ligne_engin, col_fin) <> ""
'on cherche la cellule correspondant à l'année de "remise à temps".
If (Sheets("Post_ext").Cells(2, col_fin) = a2) Then
'une fois trouvé, on cherche la cellule correspondante à la semaine de "remise à temps".
If (Sheets("Post_ext").Cells(4, sem_fin) = semaine_rat) Then
'Une fois trouvé, on l'identifie pour plus tard
range_fin = getCell(ligne_engin, sem_fin)
End If '~Si on trouve pas la semaine de rat, on rajoute +1 et on passe à la colonne suivante :
sem_fin = sem_fin + 1
End If '~Si on trouve pas l'année de rat, on rajoute +1 et on passe à la colonne suivante :
col_fin = col_fin + 1
Wend
' ---------------------------------------------------------------------------------------------'
' 3ème Etapes : '
' Désormais on va inscrire la ligne de l'engin en fonction des données collectés '
' Et si jamais la ligne contient déja une valeur, on écrira dans une nouvelle ligne au dessous '
'----------------------------------------------------------------------------------------------'
'On vérifie si l'opération de saisi et la même que dans sa ligne de destination'
If Sheets("Post_ext").Cells(ligne_engin, col).Value = operation Then
'---------------------------------------------------------------------------------'
'Si c'est le cas, alors on ne va pas mettre à jour les données pour cette ligne. '
'---------------------------------------------------------------------------------'
Else
'sinon on vérifie la ligne suivante pour savoir si elle appartient elle aussi au même engin'
If Sheets("Post_ext").Cells(ligne_engin + 1, 4).Value = no_engin Then
'Si elle appartient aussi au même engin, on recommence la même opération :
'On vérifie si l'opération a écrire se situe dans la cellule "operation"
If InStr(1, Sheets("Post_ext").Cells(ligne_engin + 1, col).Value, Trim(operation), 1) > 0 Then
ligne_engin = ligne_engin + 1
'---------------------------------------------------------------------------------'
'Si c'est le cas, alors on ne va pas mettre à jour les données pour cette ligne. '
'---------------------------------------------------------------------------------'
Else ' Si ce n'est pas le cas, alors on va vérifier si la plage d'intervention de la ligne n'est pas vide :
range_debut = getCell(ligne_engin + 1, col)
If IsEmpty(range_debut) = True Then
'---------------------------------------------------------------------------------'
'Si c'est le cas, alors on ne va pas mettre à jour les données pour cette ligne. '
'---------------------------------------------------------------------------------'
Else 'Elle contient une information, alors :
'---------------------------------------------------------------------------------'
' on as trouvé l'emplacement pour l'intervention alors '
' on écrit les données dans la ligne en question. '
'---------------------------------------------------------------------------------'
'-----------------'
' création ligne '
'-----------------'
ligne_d_ajout = "" & (ligne_engin + 1) & ":" & (ligne_engin + 1) & ""
Sheets("Post_ext").Select
Rows(ligne_d_ajout).Select
Selection.Insert Shift:=xlDown
range_debut = getCell(ligne_engin + 1, col)
Sheets("Post_ext").Cells(ligne_engin + 1, 1).Value = Sheets("Post_ext").Cells(ligne_engin, 1).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 2).Value = Sheets("Post_ext").Cells(ligne_engin, 2).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 3).Value = Sheets("Post_ext").Cells(ligne_engin, 3).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 4).Value = Sheets("Post_ext").Cells(ligne_engin, 4).Value
Sheets("Post_ext").Cells(ligne_engin + 1, col).Value = operation
ligne_engin = ligne_engin + 1
End If '~End de : écrit les données.
End If
Else 'Si ce n'est pas la ligne du même engin :
'---------------------------------------------------------------------------------'
' On n'as pas trouvé de place dans les précédentes lignes de l'engin '
' pour pouvoir écrire les données dans la ligne en question. '
' alors on va simplement insérer une nouvelle ligne '
' pour l'engin qui nous interesse.
'---------------------------------------------------------------------------------'
'-----------------'
' création ligne '
'-----------------'
ligne_d_ajout = "" & (ligne_engin + 1) & ":" & (ligne_engin + 1) & ""
Sheets("Post_ext").Select
Rows(ligne_d_ajout).Select
Selection.Insert Shift:=xlDown
range_debut = getCell(ligne_engin + 1, col)
'--------------------------'
' Inscriptions des données '
'--------------------------'
Sheets("Post_ext").Cells(ligne_engin + 1, 1).Value = Sheets("Post_ext").Cells(ligne_engin, 1).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 2).Value = Sheets("Post_ext").Cells(ligne_engin, 2).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 3).Value = Sheets("Post_ext").Cells(ligne_engin, 3).Value
Sheets("Post_ext").Cells(ligne_engin + 1, 4).Value = Sheets("Post_ext").Cells(ligne_engin, 4).Value
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Value = operation
'Si la durée d'immobilisation de la cellule 13 : "Jour d'immob" est supérieur ou égal à 6Jours
If (duree7j > 6) Then
'On change la couleur de la ligne
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Interior.ColorIndex = 3
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Font.Bold = True
Sheets("Post_ext").Range(Cells(ligne_engin + 1, col), Cells(ligne_engin + 1, sem_fin - 1)).Font.ColorIndex = 52
End If
'Sheets("Post_ext").Cells(ligne_engin + 1, col).Font.Bold = True
End If '~Fin de la création de la ligne'
End If '~Fin de : Si même opération'
End If '~Fin de : identique à semaine_entree, Sinon on passe à la colonne suivante afin de trouvé la semaine correspondante'
col = col + 1
End If '~Fin de : Si même année, Sinon on passe à la colonne suivante afin de trouvé l'année correspondante'
col = col + 1
ligne = ligne + 1
i = i + 1
End If '~Si on n'as pas trouvé l'engin correspondant, on rajoute +1 et on consulte la ligne suivante:'
Wend
MsgBox ("Boucle Terminé avec succès")
End Sub
Donc je vais analyser le code du fichier Tableau5 - Copie.xls puisqu'il y des differences.
'On refais la selection de la feuille "SAQ Extérieur"
.Range("A2:u" & DLnVCA).Select '?????????????? pourquoi
Je sais pas ^^
Qui va savoir??
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
40
16 avril 2012 à 15:07
16 avril 2012 à 15:07
nan mais je sais pas pq je l'ai mis. bon c'est pas grave c'est à supp. et pour le code, a partir du moment ou le début et la fin de l'opération se calle en fonction des semaines selon l'année. le reste je m'en fiche, tampis même si on affiche l'op plutot que RA à etb.
déja si tu peux m'aider la dessus ^^
déja si tu peux m'aider la dessus ^^
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
16 avril 2012 à 15:10
16 avril 2012 à 15:10
Re,
J'ai modife pour RA à etb.
Pour le reste ca roule.
A bientot
J'ai modife pour RA à etb.
Pour le reste ca roule.
A bientot
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
40
16 avril 2012 à 16:02
16 avril 2012 à 16:02
tu l'as fini ? oO
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
Modifié par f894009 le 16/04/2012 à 17:21
Modifié par f894009 le 16/04/2012 à 17:21
Re,
Non, ce n'est pas fini.
J'ai essaye de garder votre structure de programme, mais je vais etre oblige de faire autrement car entre autres chianlies
- en cas de changement d'annee pour la fin d'intervention cela foire magnifiquement
- j'ai rajoute des tests parce qu'il y a une ligne vide (???) dans SAQ Extérieur
Et question:
dans la liste de SAQ Extérieur, si l'engin n'est pas dans la liste de Post_ext ou est present mais pas d'info dans la premiere cellule(x,5) y-a-t-il vraiment rien a faire???
Vous allez faire des mises a jour avec une nouvelle liste SAQ Extérieur ou cette liste va grandir?
Actuellement, si je lance 10 fois la mise a jour, je rentre 10 fois les infos dans Post_ext. Est ce normal????
Pour l'instant j'arrive a mettre a jour pour annee 2011 et 2012 en fonction de vos tests: 4 sur 21.
Non, ce n'est pas fini.
J'ai essaye de garder votre structure de programme, mais je vais etre oblige de faire autrement car entre autres chianlies
- en cas de changement d'annee pour la fin d'intervention cela foire magnifiquement
- j'ai rajoute des tests parce qu'il y a une ligne vide (???) dans SAQ Extérieur
Et question:
dans la liste de SAQ Extérieur, si l'engin n'est pas dans la liste de Post_ext ou est present mais pas d'info dans la premiere cellule(x,5) y-a-t-il vraiment rien a faire???
Vous allez faire des mises a jour avec une nouvelle liste SAQ Extérieur ou cette liste va grandir?
Actuellement, si je lance 10 fois la mise a jour, je rentre 10 fois les infos dans Post_ext. Est ce normal????
Pour l'instant j'arrive a mettre a jour pour annee 2011 et 2012 en fonction de vos tests: 4 sur 21.
ViriisXP
Messages postés
482
Date d'inscription
mardi 1 juin 2004
Statut
Membre
Dernière intervention
11 janvier 2023
40
Modifié par ViriisXP le 16/04/2012 à 17:29
Modifié par ViriisXP le 16/04/2012 à 17:29
Re,
merci encore pour votre temps passé.
Alors il n'y aura pas de ligne vide dans SAQ Extérieur, et normalement (ca doit être une erreur) il n'y as pas d'engin qui manque dans post_ext.
(Après qu'il n'ai pas d'info, c'est possible, si il n'as jamais encore subit de maintenance).
------
Question à mon tour : vous avez bien compris que normalement si une range d'intervention as la place de se glissé dans une ligne déja présente (car aucune infos dans les cellules de la range) alors on recrée pas une nouvelle ligne et on se glisse dans les semaines d'interventions.
En gros :
Si j'ai x2200 qui as une intervention dans SAQ programmé entre la semaine 12 et 14 en 2012, la requête va :
- Chercher l'engin, si elle le trouve :
- se crée une range entre les semaines d'interventions désiré
- si dans la ligne déja présente de l'engin la range n'est pas possible, alors :
- on crée une ligne à la suite dont la range se place entre les semaines 12 et 14 de l'année en cours.
j'espère que je suis compréhensible, j'ai pas l'impression. c'est pas facile de décrire ce qu'on recherche ^^.
Si vous avez compris alors c'est parfait ! :)
Quand au code, bien entendu, repartez de là ou vous voulez, mon code est pas obligé de rester ^^.
Dans l'attente tel un enfant devant un cadeau de noël, j'attends votre retour.
Cordialement, ViriisXP.
merci encore pour votre temps passé.
Alors il n'y aura pas de ligne vide dans SAQ Extérieur, et normalement (ca doit être une erreur) il n'y as pas d'engin qui manque dans post_ext.
(Après qu'il n'ai pas d'info, c'est possible, si il n'as jamais encore subit de maintenance).
------
Question à mon tour : vous avez bien compris que normalement si une range d'intervention as la place de se glissé dans une ligne déja présente (car aucune infos dans les cellules de la range) alors on recrée pas une nouvelle ligne et on se glisse dans les semaines d'interventions.
En gros :
Si j'ai x2200 qui as une intervention dans SAQ programmé entre la semaine 12 et 14 en 2012, la requête va :
- Chercher l'engin, si elle le trouve :
- se crée une range entre les semaines d'interventions désiré
- si dans la ligne déja présente de l'engin la range n'est pas possible, alors :
- on crée une ligne à la suite dont la range se place entre les semaines 12 et 14 de l'année en cours.
j'espère que je suis compréhensible, j'ai pas l'impression. c'est pas facile de décrire ce qu'on recherche ^^.
Si vous avez compris alors c'est parfait ! :)
Quand au code, bien entendu, repartez de là ou vous voulez, mon code est pas obligé de rester ^^.
Dans l'attente tel un enfant devant un cadeau de noël, j'attends votre retour.
Cordialement, ViriisXP.
