Discussion :

[azertym]

Bonjour à tous,

J'ai optimisé une macro qui avait déjà été programmé par quelqu'un d'autres. Je vous explique son fonctionnement.

J'utilise un classeur source et un classeur destination.
Dans le classeur source je vais rechercher des valeurs qui sont à intervalle régulier.

J'utilise donc ce code ci qui fonctionne très bien. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CopyConfocalite(classeurEntree As Workbook, laser As String, destinationColumn As String)
 
    Dim rowNumber As Range
    Dim source As Worksheet, destination As Worksheet
 
    Set source = classeurEntree.Worksheets("Confocalite")
    Set destination = classeurSortie.Worksheets("confocalite")
 
    ' Numero de ligne du lambda correspondant
    Set rowNumber = source.Range("B:B").Cells.Find(What:=laser)
 
    If (source.Range("E" & rowNumber.Row + 5).Value) = "" Then
        idest = 0
    Else
        idest = source.Range("E" & rowNumber.Row + 5).Value
    End If
    destination.Range(destinationColumn & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row + 1) = idest
 
    ' Import date
    destination.Range("D" & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row) = Now
    ' Source file
    destination.Range("E" & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row) = classeurEntree.Path & "\" & classeurEntree.Name

Or dans une certaine feuille, j'ai besoin de récupérer des données qui ne sont pas a intervalle régulier.

J'ai donc écris ce code qui ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
31
32
Sub CopyPuissanceéchantillons(classeurEntree As Workbook, laser As String, destinationColumn As String)
    Dim rowNumber As Range
    Dim source As Worksheet, destination As Worksheet
 
    Set source = classeurEntree.Worksheets("data_objectifs")
    Set destination = classeurSortie.Worksheets("Puissance échantillon")  
    Set rowNumber = source.Range("I:I").Cells.Find(What:=laser)
 
    If (source.Range("I" & rowNumber.Row + 12).Value) = "" Then
        idest = 0
    Else
        idest = source.Range("I" & rowNumber.Row + 12).Value
    End If
 
        If (source.Range("I" & rowNumber.Row + 17).Value) = "" Then
            idest = 0
        Else
            idest = source.Range("I" & rowNumber.Row + 17).Value
        End If
 
            If (source.Range("I" & rowNumber.Row + 22).Value) = "" Then
                idest = 0
            Else
                idest = source.Range("I" & rowNumber.Row + 22).Value
            End If
destination.Range(destinationColumn & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row + 1) = idest
 
    ' Import date
    destination.Range("D" & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row) = Now
    ' Source file
    destination.Range("E" & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row) = classeurEntree.Path & "\" & classeurEntree.Name
End Sub

Or le code ne fonctionne pas, il ne va pas me chercher les bonnes valeurs. Faut-il faire une boucle ?

[Supermichou]

Bonjour,

j'ai juste regardé les deux codes, mais la principale différence se trouve sur le nombre de fois que tu définies ta variable idest.

je ne comprends pas bien le role de ta variable, mais les deux premières fois où idest est calculée sont effacées par la troisième.

tu dois faire trois variables idest 1, idest2 et idest3 et en faire la somme, la max ou je sais pas quoi encore.

Michel

[azertym]

Merci de ta réponse Supermichou. Je te met les classeurs, peut être que ca t'aidera car c'est vrai que c'est un peu abstrait expliqué comme ca.

idest, sert a simplement a remplir des champs vide par 0. Car quand il y'a une nouvelle importation, il copie les valeurs dans les champs qui doivent être vide. D'ou l'utilité de mettre un 0, ainsi la case n'est pas vide et la nouvelle importation sera dans la cellule suivante.

Le but c'est d'importer 3 valeurs des classeurs ouvert vers le classeur N°1

dans le fichier zip tu auras 2 classeurs que tu mettras dans un dossier de ton choix et que tu iras chercher avec le classeur "sortie avec P"

je te remercie d'avance pour ton aide.

[Daniel.C]

Bonjour,

Il y a un défaut de logique. Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub CopyPuissanceéchantillons(classeurEntree As Workbook, laser As String, destinationColumn As String)
    Dim rowNumber As Range
    Dim source As Worksheet, destination As Worksheet
 
    Set source = classeurEntree.Worksheets("data_objectifs")
    Set destination = classeurSortie.Worksheets("Puissance échantillon")
    Set rowNumber = source.Range("I:I").Cells.Find(What:=laser)
 
    If (source.Range("I" & rowNumber.Row + 12).Value) <> "" Then
        idest = source.Range("I" & rowNumber.Row + 12).Value
    ElseIf (source.Range("I" & rowNumber.Row + 17).Value) = "" Then
        idest = source.Range("I" & rowNumber.Row + 17).Value
    ElseIf (source.Range("I" & rowNumber.Row + 22).Value) = "" Then
        idest = source.Range("I" & rowNumber.Row + 22).Value
    Else
        idest = 0
    End If
destination.Range(destinationColumn & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row + 1) = idest
 
    ' Import date
    destination.Range("D" & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row) = Now
    ' Source file
    destination.Range("E" & destination.Range(destinationColumn & source.Rows.Count).End(xlUp).Row) = classeurEntree.Path & "\" & classeurEntree.Name
End Sub

[azertym]

Merci Daniel.C

J'ai essayé ton code, mais il me copie toujours la valeur 47.5, alors qu'il me faudrait les 3 "power at sample" de chaque classeur.

[Daniel.C]

C'est bien les cellules I17 ou I23 ou I29 que tu veux récupérer dans le classeur "2012-04-18_New Quality Control (XploRA)(ver120222) (11).xls" ?

[azertym]

C'est bien ça Daniel. Il faut savoir que des fois le programme va ouvrir plusieurs dizaine de classeurs. Ce n'est pas QUE dans le classeur que tu as cité.

[Daniel.C]

Suivant qu'on recherche "Laser1", Laser2" ou "Laser3" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    idest = 0
    Set rowNumber = source.Range("I:I").Cells.Find(laser)
    'Laser1
    If (source.Range("I" & rowNumber.Row + 12).Value) <> "" Then
        idest = source.Range("I" & rowNumber.Row + 12).Value
    'Laser2
    ElseIf (source.Range("I" & rowNumber.Row + 17).Value) <> "" Then
        idest = source.Range("I" & rowNumber.Row + 17).Value
    'Laser3
    ElseIf (source.Range("I" & rowNumber.Row + 22).Value) <> "" Then
        idest = source.Range("I" & rowNumber.Row + 22).Value
    End If