trouver une cellule

dg62

XLDnaute Barbatruc

• 19 Mai 2005

• #2

Bonsoir Alex



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


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

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 19 Mai 2005

• #3

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:

Code:

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

 

Vote positif 0 Vote négatif

A

alexletiti

Guest

• 19 Mai 2005

• #4

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 19 Mai 2005

• #5

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

 

Vote positif 0 Vote négatif

A

alexletiti

Guest

• 24 Mai 2005

• #6

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

merci

 

Vote positif 0 Vote négatif