Parcourir une colonne et ma colonne sélectionné avec une condition

Bonjour ,

Je me permets de solliciter votre aide s'il vous plait, en effet j'aimerai réaliser :

1) Parcourir une colonne ( par exemple colonne F) et s'arrêter à la cellule vide.

2) En fonction des valeurs rencontrées dans cette colonne, pour chaque cellule, j'aimerai retourné une valeur dans une autre colonne sélectionné.

J'ai fait ce code, mais il ne marche pas:

For ligne = 1 To ActiveSheet().UsedRange.Rows.Count

If Range("F" & ligne) = "CAP" Then

Range(ActiveCell & ligne) = "Rien"

End If

Next

Je vous remercie de votre réponse

Bonjour, vous avez dit : écrire dans une autre colonne donc vous connaissez la lettre de l'autre colonne ?

dans ce cas pourquoi le Range(ActiveCell & ligne) = "Rien"

exemple si ecrire dans colonne G de la même ligne trouvée :

If Range("F" & ligne) = "CAP" Then

Range("G" & ligne) = "Rien"

Bonjour,

Merci de votre réponse, justement je ne connais pas le nom de la colonne il peut changer selon un traitement que j'ai déjà fait avant.

Désolé mais là je n'ai rien compris.

Vous testez les cellules de la colonne F pour savoir si elle contiennent "CAP" si oui ....

vous faites quoi ? puisque vous ne savez pas ou il faut aller à partir de la cellule trouvée en colonne F ?

Si vous utilisez activecell vous ne changer pas de place.

C'est quoi la logique qui permet de savoir ou on doit écrire "Rien" ?

Désolée, je me suis peut être mal exprimée.

En gros, si nous avons CAP dans la colonne F, je vais mettre RIEN dans une colonne sélectionner par exemple si je sélectionne la colonne I alors j'aurai le RIEN dans ma colonne I, et si je sélectionne la colonne H, j'aurai le rien dans la colonne H.

Merci

Ok je comprends mieux maintenant la logique pour trouver la colonne.

Il faut donc noter la variable "numéro de Colonne sélectionnée" (macol) en début de macro pour pouvoir s'en servir ensuite

Sub Macro1()
'
Dim macol As Long
macol = ActiveCell.Column

For ligne = 1 To ActiveSheet().UsedRange.Rows.Count
If Range("F" & ligne) = "CAP" Then
Cells(ligne, macol) = "RIEN"

End If
Next

End Sub

le code fonctionne bien, Merci à vous

J'ai une dernière question s'il vous plait si vous pouvez m'aider ( étant débutante en VBA) . Je souhaite savoir si la cellule de ma colonne sélectionner cad celle ci cells(ligne, macol) est écrite en dur ou bien en formule. Si elle est écrite en dur alors je fais cells(ligne, macol) = "Rien".

Avez-vous une idée sur comment faire cela s'il vous plait.

le code que j'ai fait ne marche pas .

Merci

  Dim macol As Long
  macol = ActiveCell.Column
  For ligne = 1 To ActiveSheet().UsedRange.Rows.Count
    If Range("F" & ligne) = "CAP" And Left(ActiveCell.Formula, 1) = "=" Then
        Cells(ligne, macol) = "RIEN"
    End If
  Next

Deux testes différent

Sub Macro1()
'
' Macro1 Macro

Dim macol As Long
macol = ActiveCell.Column
  For ligne = 1 To ActiveSheet().UsedRange.Rows.Count

    If Range("F" & ligne) = "CAP" Then
    If Range("F" & ligne).HasFormula Then
GoTo suite
    Cells(ligne, macol) = "RIEN"
    End If
suite:
    End If

Next

End Sub