trouver une cellule

[alex]

Bonjour,
voila je fais un petit travail en VBA et je voudrais savoir comment faire pour indiquer le contenu d'une cellule.
On indique un nom dans l'interface, une fois le nom trouvé dans la colonne, il faudrait que excel me donne le contenu de la cellule qui se trouve a droite.
Merci

 

[dg62]

Bonsoir Alex



range('a1').offset(0,1)


et tu remplaces A1 par l'adresse de la cellule que tu as trouvée.

 

[porcinet82]

salut Alex,

Perso je trouve que tes explications ne sont pas trés claire donc je vais peut etre passer complétement a coté de ce que tu veux mais bon.
pour avoir la valeur de la cellule a droite d'une autre, il y a pal mal de syntaxe différentes, donc je vais t'en proposer 2 qu j'utilise souvent:

Selection.Offset(0,1).Value  'récupère la valeur a droite de ta cellule active
Cells(i, j).value  'récupère le contenu de la cellule ligne i colonne j

@+

Message édité par: porcinet82, à: 19/05/2005 17:56

 

[alexletiti]

voila une partie du programme :
Public Sub prog1()
nom = InputBox('Donner le nom de l'utilisateur')
For Each x In Range('A:A')
n = n + 1
plage = n
If nom = x Then
cell = Selection.Offset(0, 1)
MsgBox nom & 'appartient au groupe' & cell
End If
Next
End Sub


Donc ce que j'aimerais, c'est que ce qui apparait en rouge soit la cellule de droite de celle qui contient le nom.
exemple :
si le nom est en B12, je veux afficher le contenu de la cellule B13.

j'espère que c'est un peu plus clair

 

[dg62]

re

Public Sub prog1()
dim cel as range

nom = InputBox('Donner le nom de l'utilisateur')
For Each cel In Range('A:A')

If cel.value=nom Then
groupe = cel.Offset(0, 1).value
MsgBox nom & ' appartient au groupe ' & groupe
End If
Next
End Sub

 

[alexletiti]

merci pour ton explication.
Pourrais tu me dire à quoi sert :
dim cel as range

merci