Discussion :

[Quentin15]

Bonjour à toutes et à tous,

Voilà j'ai une erreur de type de codage sur mon code, et je ne vois pas comment je peux le résoudre. Quelqu'un pourrait-il m'aider s'il vous plait?

Code :

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

1
2
3
4
5
    For i = 2 To derligne14
        If IsError(RDV.Cells(i, "A").Value) = True Or RDV.Cells(i, "A").Value <> "" Then
            RDV.Cells(i, "N").Value = RDV.Cells(i, "A").Value & "/ 6444"
        End If
    Next i

Cordialement,

[mercatog]

Si tu as une erreur en une cellule de la colonne A, que veux tu récupérer en colonne N?

[Jean-Philippe André]

salut,

tu sembles confondre les notations Range et Cells.

Tout est disponible dans l'excellent cours de Bidou
http://bidou.developpez.com/article/VBA/
page 143

[pgz]

Bonjour.

Peut-être

Code :

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

1
2
3
4
5
For i = 2 To derligne14
        If (not IsError(RDV.Cells(i, 1).Value)) and (RDV.Cells(i, 1).Value <> "") Then
            RDV.Cells(i, 14).Value = RDV.Cells(i, 1).Value & "/ 6444"
        End If
    Next i

Ou

Code :

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

1
2
3
4
5
For i = 2 To derligne14
        If Isnumeric(RDV.Cells(i, 1).Value)) Then
            RDV.Cells(i, 14).Value = RDV.Cells(i, 1).Value & "/ 6444"
        End If
    Next i

COrdialement,

PGZ

[Quentin15]

En fait dans ma colonne A j'ai 3 types de valeurs:
- numérique
-vide
- N/A

Et je souhaite faire des concaténation seulement avec des cellules numérique.
Je ne sais pas si je réponds à vos questions.

Je crois avoir résolu le problème, j'ai juste modifié légèrement le code. Et cela fonctionne correctement.

Code :

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

1
2
3
4
5
6
7
8
9
    For i = 2 To derligne14
        If IsError(RDV.Cells(i, "A").Value) = True Then
            RDV.Cells(i, "N").Value = ""
        Else
            If RDV.Cells(i, "A").Value <> "" Then
                RDV.Cells(i, "N").Value = RDV.Cells(i, "A").Value & "/ 6444"
            End If
        End If
    Next i

Toutefois, je ne le trouve pas encore rapide. Je dois l'exécuter sur plus de 6202 données.

[mercatog]

Les données de la colonne A sont des valeur en dure ou issues de formules?


EDIT

Bon, une proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Application.ScreenUpdating = False
With RDV
    On Error Resume Next
    .Range("A2:A" & DerLigne14).SpecialCells(xlCellTypeConstants, 1).Offset(0, 13).FormulaR1C1 = "=RC[-13]&""/6444"""
    'Au cas en colonne A tu as des formules dont le résultat est numérique, utilise plutôt la ligne suivante
    '.Range("A2:A" & DerLigne14).SpecialCells(xlCellTypeFormulas, 1).Offset(0, 13).FormulaR1C1 = "=RC[-13]&""/6444"""
    On Error GoTo 0
    With .Range("N2:N" & DerLigne14)
        .Value = .Value
    End With
End With

[Quentin15]

Les valeurs dans la colonne A sont le résultat d'une autre formule.

[mercatog]

Alors essaies ce code:

Code :

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

1
2
3
4
5
6
7
8
9
Application.ScreenUpdating = False
With RDV
    On Error Resume Next
    .Range("A2:A" & DerLigne14).SpecialCells(xlCellTypeFormulas, 1).Offset(0, 13).FormulaR1C1 = "=RC[-13]&""/6444"""
    On Error GoTo 0
    With .Range("N2:N" & DerLigne14)
        .Value = .Value
    End With
End With

RDV et DerLigne14 sont au préalable définies.

[Quentin15]

Excellent , çà fonctionne. Merci beaucoup.
Et c'est plus rapide que mon code.

@mercartoq

Je te remercie pour ton aide.
J'ai un autre petit soucis avec un autre code, toujours dans la même feuille RDV.
Pour VBA le code est correct, mais lorsqu'on vérifie on se rencontre que c'est faux.
Si tu le souhaite, je peux t'envoyer le fichier excel pour que tu l'analyses de plus prêt. Sinon voici le code: il se peut qu'il y ait une erreur dans le code mais je n'arrive pas à la visualiser

Code :

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

1
2
3
4
5
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-9]="""","""",IF(ISNA(VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE))=TRUE,"""",IF(OR(VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE)="""",VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE)="" ""),"""",VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE)+0)))"
    RDV.Cells(2, "J").Select
    Selection.AutoFill Destination:=Range(RDV.Cells(2, "J"), RDV.Cells(derligne14, "J")), Type:=xlFillDefault
    Range(RDV.Cells(2, "J"), RDV.Cells(derligne14, "J")).Select

Meric encore.

Cordialement,

[mercatog]

Une autre question = un autre sujet. Règles du forum obligent

Essaies ceci

Code :

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

1
2
3
With RDV
    .Range(.Cells(2, "J"), .Cells(DerLigne14, "J")).FormulaR1C1 = "=IF(RC[-9]="""","""",IF(ISNA(VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE)),"""",IF(OR(VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE)="""",VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE)="" ""),"""",VLOOKUP(RC[-9]&"" / 6444"",Attribut!C[-5]:C[-4],2,FALSE))))"
End With

[Quentin15]

Tu as tout à fait raison.
çà fonctionne!
Je te remercie beaucoup et en espérant avoir de ton aide très prochainement.

Bien à toi,