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.