N
nico0007
Guest
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:
Le code de la fonction utilisée:
Mais avec ce code j'ai un problème dans ma déclaration:
Comment faire?
Merci pour votre aide..
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:
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
WendLe code de la fonction utilisée:
Code:
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 FunctionMais avec ce code j'ai un problème dans ma déclaration:
Code:
With Range("O1")
.Value = tournee.Value
.Offset = tournee.Offset
End WithComment faire?
Merci pour votre aide..