définition d'une variable "As Range"

[nico0007]

Bonjour le forum,

Comment affecter toute les propriétés d'une cellule à une variable de type range? J'ai besoin de faire cela car je pourrai utiliser cette variable sur d'autres feuille du classeur (ma variable étant déclarée en Public dans mon code). voici mon code:

With Range("O1")
    .Value = tournee.Value
    .Offset = tournee.Offset
End With
While tournee.Value <> ""
    maFonction = chercher_trigramme_tournee(trigramme1, trigramme2)
    tournee.Value = trigramme1 & " " & "-" & " " & trigramme2
    tournee.Offset(1, 0).Select
Wend

Le code de la fonction utilisée:

Public Function chercher_trigramme_tournee(trouve1, trouve2)
Feuil3.Select
Range("B1").Select
While ActiveCell.Value <> tournee.Characters(3, 3).Text
    ActiveCell.Offset(1, 0).Select
Wend
trouve1 = ActiveCell.Offset(0, -1).Value
While ActiveCell.Value <> tournee.Characters(7, 3).Text
    ActiveCell.Offset(1, 0).Select
Wend
trouve2 = ActiveCell.Offset(0, -1).Value
End Function

Mais avec ce code j'ai un problème dans ma déclaration:

With Range("O1")
    .Value = tournee.Value
    .Offset = tournee.Offset
End With

Comment faire?
Merci pour votre aide..

 

[skoobi]

Re : définition d'une variable "As Range"

Bonjour,

il faut déclarer la variable au niveau module.