Discussion :

[zoocoral]

Bonjour,

je débute sur excel et j'ai le besoin suivant :
J'ai 2 colonnes A et B avec des données ou pas.

J'aimerai que pour chaque ligne si les cellules de la colonne A ne sont pas vide, la valeur de la cellule Colonne B de la même ligne soit remplacée par un texte "TEST". Ce texte "TEST" remplacera donc (tout du moins visuellement) le texte déjà présent dans la cellule de la colonne B.

J'espère avoir été assez clair sur mon besoin

Merci de votre aide

[victor.dubois]

Salut Zoocoral,

Veux-tu trouver une solution uniquement sur Excel, ou un code VBA (macro) t'irais également?

[Minise]

non en fait non dsl

[Theze]

Bonjour,

A tester :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Lgn As Long
 
    With ActiveSheet
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        If Cel.Value <> "" Then Cel.Offset(, 1).Value = "TEST"
 
    Next Cel
 
End Sub

[zoocoral]

Salut Zoocoral,

Veux-tu trouver une solution uniquement sur Excel, ou un code VBA (macro) t'irais également?

peu importe, si ce n'est que je ne sais pas comment intégrer un code VBA

[Theze]

Bonjour,

si ce n'est que je ne sais pas comment intégrer un code VBA

Appui sur les touches Alt+F11 là, tu te trouve dans l'éditeur de code. Menu "Insertion" puis "Module" maintenant, tu as une page vierge qui c'est affichée à droite, dans cette page tu colle le code que je t'ai donné. Pour l'exécuter, tu as plusieurs façons, tu place le curseur dans le code (entre Sub...End Sub) puis tu appuis sur F5 ou sur le bouton de lecture dans les barres d'outils (le triangle vert, un peu comme sur un magnétophone) ou encore dans le menu "Exécution" "Exécuter Sub/UserForm".
Saches que si tu viens dans cette partie du site c'est principalement pour avoir du code VBA.