Discussion :

[many95870]

Bonjour a tous,

Je suis débutant dans VBA et je suis confronté à un probleme. En effet je souhaite récupérer des données dans plusieurs cellule d'une autre feuille selon une condition de ma colonne de base ce qui donne la programmation ci dessous. Mais lorsque dans ma colonne (31) il y a #N/A ça plante le VBA. J'aimerais que la copie continue toujours que si la cellule = Oui en evitant les N/A

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
Sub HDV()
Dim i As Integer
Dim rng_Etat_des_lieux As Range
Dim rng_Annexe_3 As Range
 
 
Set rng_Etat_des_lieux = Worksheets("Etat_des_lieux").Range("AF4")
 
With Worksheets("Annexe_3")
Sheets("Annexe_3").Range("A7:G1000").ClearContents
    Set rng_Annexe_3 = .Range("A7")
 
    For i = 0 To Worksheets("Etat_des_lieux").Columns(31).Find("*", , , , , xlPrevious).Row - 2
        If rng_Etat_des_lieux.Offset(i, 0) = "Oui" Then
 
            rng_Annexe_3.Offset(0, 0) = rng_Etat_des_lieux.Offset(i, -18)
            rng_Annexe_3.Offset(0, 1) = rng_Etat_des_lieux.Offset(i, -24)
            rng_Annexe_3.Offset(0, 2) = rng_Etat_des_lieux.Offset(i, -27)
            rng_Annexe_3.Offset(0, 3) = rng_Etat_des_lieux.Offset(i, -26)
            rng_Annexe_3.Offset(0, 4) = rng_Etat_des_lieux.Offset(i, -25)
            rng_Annexe_3.Offset(0, 5) = rng_Etat_des_lieux.Offset(i, -13)
            rng_Annexe_3.Offset(0, 6) = rng_Etat_des_lieux.Offset(i, -1)
 
            Set rng_Annexe_3 = rng_Annexe_3.Offset(1, 0)
        End If
    Next i
 
End With
End Sub

Merci

[Patrice740]

Bonjour,

Regardes dans ce post comment détecter (et traiter) une erreur #NA (ligne 10) :
https://www.developpez.net/forums/d2.../#post11372052

[Menhir]

J'ai un peu retravaillé ton code. Il me semble plus facile à lire comme ça (il se peut qu'il y ait des erreurs dans les désignations de colonnes, les nombres relatifs négatifs c'est pas facile à suivre) :

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
Sub HDV()
    Dim i As Long, j As Long
    Dim WS_Out As WorkSheet, WS_In As WorkSheet
 
    Set WS_Out = Worksheets("Etat_des_lieux")
    Set WS_In = Worksheets("Annexe_3")
 
    j = 7
    For i = 5 To WS_Out.Cells(Rows.Count, 31).End(xlUp)
        If WS_Out.Cells(i , "AF").Text = "OUI" Then
            WS_In.Cells(j, 1).Value = WS_Out.Cells.Cells(i, "N").Value
            WS_In.Cells(j, 2).Value = WS_Out.Cells.Cells(i, "H").Value
            WS_In.Cells(j, 3).Value = WS_Out.Cells.Cells(i, "E").Value
            WS_In.Cells(j, 4).Value = WS_Out.Cells.Cells(i, "F").Value
            WS_In.Cells(j, 5).Value = WS_Out.Cells.Cells(i, "G").Value
            WS_In.Cells(j, 6).Value = WS_Out.Cells.Cells(i, "S").Value
            WS_In.Cells(j, 7).Value = WS_Out.Cells.Cells(i, "AE").Value
            j = j + 1
        End If
    Next i
End Sub

Quelle ligne de code provoque l'erreur ? Quel est le message d'erreur ?

[many95870]

Merci beaucoup, tu as fais un sans faute.

j'ai repris ton code et j'ai toujours l'erreur. Lorsque l’exécution rencontre un #N/A j'ai le code :

Erreur d’exécution '13': Incompatibilité de type

sur la ligne de commande For i = 5 To WS_Out.Cells(Rows.Count, 31).End(xlUp) (Surlignée en jaune)

A savoir lorsque je filtre ma colonne source en masquant les N/A la macro fonctionne correctement.

Je viens de me rendre compte que même quand le cellule est vide, cela ne fonctionne pas comme pour le N/A

[Patrice740]

j'ai repris ton code et j'ai toujours l'erreur. Lorsque l’exécution rencontre un #N/A j'ai le code : Erreur d’exécution '13': Incompatibilité de type sur la ligne de commande " For i = 5 To WS_Out.Cells(Rows.Count, 31).End(xlUp)" (Surlignée en jaune)

Il manque le .Row :

Code :

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

For i = 5 To WS_Out.Cells(Rows.Count, "AE").End(xlUp).Row

Mais ça resoud pas le pb des #NA

[Menhir]

Il manque le .Row :

Bravo. Je ne l'avais pas remarquée celle-là.

Mais ça resoud pas le pb des #NA

Les #NA ne devraient plus planter la macro.

A savoir lorsque je filtre ma colonne source en masquant les N/A la macro fonctionne correctement.

Ce serait étonnant étant donné que la limite supérieur du For To était la valeur de la dernière cellule et non le numéro de sa ligne.

Ce qui devait se passer, c'est que la valeur inscrite dans la dernière cellule était sans doute être supérieure au numéro de ligne.
Du coup, la macro devait créer plein de lignes surnuméraires dans ta feuille destination.
Mais comme elle les remplissait avec des valeurs vides, tu ne devais pas t'apercevoir du problème (sauf que ça devait légèrement ralentir l'exécution).

En somme, ça ne fonctionnait que grâce à un coup de chance.

[many95870]

Tout fonctionne a merveille.

Un grand merci a vous tous