Ecrire une valeur dans une cellule selon valeur d'une autre cellule

Bonjour à tous,

J'ai besoin de créer d'un outil à usage interne de l'entreprise pour laquelle j'officie.

N'ayant pas fait de VBA depuis un bon moment, je me sens rouillé et je rame,

Le problème qui m'amène est surtout méthodique,

Dans le fichier exemple que j'ai posté en pièce jointe de ce sujet, je veux obtenir le résultat suivant : lorsque la valeur d'une cellule de la colonne "Type" est égale à "A", que la valeur de la cellule de la colonne "ID" soit transformée en "AD",

Je me prend les pieds dans le tapi sur la méthode à appliquer, soit la fonction IF, soit utiliser une structure en boucle comme "Do...Loop",

Si une âme charitable peut m'apporter une aide précieuse, sur un sujet qui semble hyper classique et hyper simple (ça ne m'empêche pas de tanker ), à l'apprenti sorcier en VBA que je suis, je lui en serait fortement reconnaissant.

Bonjour,

Une formule concatener ferai l'affaire je pense,

Cordialement,

Effectivement j'y avais songé,

Le souci est que le tableau de ce fichier (ainsi que les valeurs) est importé depuis un autre fichier, généré par l'application éditée par notre société,

De ce fait, je suis obligé de passer par du VBA pour faire du traitement dans ce tableau

Bonjour,

Mettez ce code dans le code de la feuille1 :

Dim i as Interger

Sub AD()
    For i = 11 To UsedRange.Rows.Count
        If ActiveSheet.Cells(i, 7) = "A" Then
            ActiveSheet.Cells(i, 3) = "AD : " & ActiveSheet.Cells(i, 3)
        End If
    Next i
End Sub

Merci pour le code,

Je vois bien la logique appliquée et déjà c'est un poids en moins,

Cependant, lorsque j'exécute la fonction, je rencontre une "erreur d'exécution 424 : Objet requis"

Ou ca (faire débogague et me dire quelle ligne)?

Merci

C'est bon j'ai corrigé l'erreur au travers du code suivant :

Dim i As Integer

Sub AD()

For i = 11 To ActiveSheet.UsedRange.Rows.Count

If ActiveSheet.Cells(i, 7) = "A" Then

ActiveSheet.Cells(i, 3) = "AD"

End If

Next i

End Sub

Merci pour l'aide apportée et bonne continuation à tous