XL 2016 Code VBA

[Périclès1801]

Bonjour tout le monde,
Alors je suis électrotechnicien et Géomaticien. J'ai un fichier excel contenant respectivement les colonnes (Id, Coord x, Coord y, Coord z, Obstacles, et codes).
Je souhaiterais écrire un code VBA qui fasse qu'à partir des coordonnées (Coord x et Coord y) , un calcul de distance se fasse et que tous les 100 mètres, une valeur "canton" soit ajoutée automatiquement dans la colonne Obstacles et qu'une valeur "203" soit également ajoutée dans la colonne Codes.

Merci pour les éventuelles réponses et orientations.

 

[sylvanu]

Bonjour Péricles, et bienvenu sur XLD,
Un petit fichier test serait le bienvenu, avec l'attendu.
Cela permettrait de poser clairement le problème.

 

[Périclès1801]

Bonjour Sylvan.
Voici le fichier en question.

 

[sylvanu]

Re,

avec l'attendu.

Votre fichier est inexploitable pour qui n'est pas de votre partie.
1- Si les bornes_Id sont tous les 100m pourquoi calculer les distances. Il suffit de compter les bornes.
2- Si ce n'est pas le cas, quelles sont les unités des coordonnées, des mètres, des degrés ?
3- Que fait on des Angles, Tra1, Tra2 ? On ne peux donc pas utiliser la colonne F pour y mettre les Cant.
4- S'il y a des 202 pour Tra1 Tra2 et si ça coïncide avec un Cant, qu'y mettre ?
Donc sans plus amples informations, il n'est guère possible de poursuivre.
Quand j'ai écrit "avec l'attendu" c'est qu'il y avait une raison.

 

[Périclès1801]

Re,
Merci Sylvan.
En réalité, borne_id c'est la nomenclature dans un ordre croissant (on a des bornes tous les 10m).
Les coordonnées sont en unités métriques (mètre).
Les angles, tra1, tra2,... Sont des obstacles au même titre que les cantons que je souhaite insérer (tous les 100m).
Et si ceux ci coïncident quelques fois avec les autres obstacles, il n'y a pas de soucis.

 

[sylvanu]

Re, Voir PJ,
Si on a des bornes tous les 10m, il suffit de compter 10 à partir du premier Cant, avec en E13:F13 jusqu'au bout :

=SI(EQUIV("Cant";F3:F12;0)=1;203;201)
=SI(EQUIV("Cant";F3:F12;0)=1;"Cant";"")

Evidemment cela détruit les Tra1, Tra2 ainsi que les 202.

 

[Périclès1801]

Merci Sylvanu.
C'est pile ce dont j'ai besoin.
Mais il n'y aurait-il pas moyen de conserver les angles ? On peut encore se passer des tra1 et tra2.
Bien Cordialement.

 

[sylvanu]

Sans VBA, je ne vois pas comment. Une cellule ne peux pas contenir une formule et une donnée entrée à la main.
On peut par contre l'insérer dans la colonne d'à coté. C'est peut être le plus simple.

 

[sylvanu]

Par contre avec du VBA, on peut le faire. Voir PJ avec :

Sub InsereCant()
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    T = Range("A1:F" & DL)
    Cant = 0
    For L = 3 To UBound(T)
        Cant = Cant + 1
        If Cant = 10 Then
            If T(L, 6) = "" Or T(L, 6) = "Cant" Then
                T(L, 6) = "Cant"
            Else
                T(L, 6) = "Cant - " & T(L, 6)
            End If
            T(L, 5) = 203
        End If
        If Cant = 10 Then Cant = 0
    Next L
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

On trouve dans votre fichier 10 coïncidences Cant avec Angle, Tra1, Tra2, Début.

 

[Périclès1801]

Merci infiniment Sylvanule VBA gère exactement comme attendu.
C'est une macro qui va m'aider grandement dans mes tâches, c'est vraiment super.
Merci encore.

 

[sylvanu]

Par contre à chaque Cant je met 203, sans m'occuper des 202.

 

[Périclès1801]

Ça ne gêne pas.
C'est bon à ce niveau ci, merci encore.