Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel affecter une donnée dabns une cellule

affecter une donnée dabns une cellule

5 réponses
Avatar
pierre-yves
bonsoir
quelqu'un connait une solution pour faire :

par exemple :

si
dans : feuille 1 : cellule A1 : nombre X
alors
mettre dans feuille 2 : cellule AX : valeur de feuille 1 cellule
B1



en espérant avoir été clair

merci de vos réponses
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour pierre-yves,

mets cette formule dans la cellule feuille 2 : cellule AX
=SI(Feuil1!A1="zaza";Feuil1!B1;"")

isabelle

bonsoir
quelqu'un connait une solution pour faire :

par exemple :

si
dans : feuille 1 : cellule A1 : nombre X
alors
mettre dans feuille 2 : cellule AX : valeur de feuille 1 cellule
B1



en espérant avoir été clair

merci de vos réponses




Avatar
docm
Bonsoir.

Le veux-tu en VBA?

Sub tt()
ligne = Sheets("feuil1").Range("a1")
Sheets("feuil2").Range("a" & ligne) = Sheets("feuil1").Range("B1")
End Sub

docm

"pierre-yves" a écrit dans le message news:
428a796d$0$25035$
bonsoir
quelqu'un connait une solution pour faire :

par exemple :

si
dans : feuille 1 : cellule A1 : nombre X
alors
mettre dans feuille 2 : cellule AX : valeur de feuille 1
cellule

B1



en espérant avoir été clair

merci de vos réponses




Avatar
pierre-yves
super merci !

mais :

y a t il un moyen de boucler cette "procédure"
pour la faire exécuter de la case A1 à A500 par exemple.

merci encore et toujours




"docm" a écrit dans le message de news:

Bonsoir.

Le veux-tu en VBA?

Sub tt()
ligne = Sheets("feuil1").Range("a1")
Sheets("feuil2").Range("a" & ligne) = Sheets("feuil1").Range("B1")
End Sub

docm

"pierre-yves" a écrit dans le message news:
428a796d$0$25035$
bonsoir
quelqu'un connait une solution pour faire :

par exemple :

si
dans : feuille 1 : cellule A1 : nombre X
alors
mettre dans feuille 2 : cellule AX : valeur de feuille 1
cellule

B1



en espérant avoir été clair

merci de vos réponses








Avatar
docm
Première méthode:
Remplacer Range("A1")
par Range("a" & y)

Sub tt()
For y = 1 To 500
ligne = Sheets("feuil1").Range("a" & y)
Sheets("feuil2").Range("a" & ligne) = Sheets("feuil1").Range("B" & y)
Next
End Sub

Deuxième méthode:
Remplacer Range("a" & y)
par Cells(y, 1)

Sub tt2()
For y = 1 To 500
ligne = Sheets("feuil1").Cells(y, 1)
Sheets("feuil2").Cells(ligne, 1) = Sheets("feuil1").Cells(y, 2)
Next
End Sub

docm

"pierre-yves" a écrit dans le message news:
428a796d$0$25035$
bonsoir
quelqu'un connait une solution pour faire :

par exemple :

si
dans : feuille 1 : cellule A1 : nombre X
alors
mettre dans feuille 2 : cellule AX : valeur de feuille 1
cellule

B1



en espérant avoir été clair

merci de vos réponses




Avatar
pierre-yves
SUPER

UN GRAND MERCI

C'est tout simple
a condition de connaitre la bonne syntaxe vba
ce qui n'est pas vraiment mon cas

MERCI docm




"docm" a écrit dans le message de news:

Première méthode:
Remplacer Range("A1")
par Range("a" & y)

Sub tt()
For y = 1 To 500
ligne = Sheets("feuil1").Range("a" & y)
Sheets("feuil2").Range("a" & ligne) = Sheets("feuil1").Range("B" & y)
Next
End Sub

Deuxième méthode:
Remplacer Range("a" & y)
par Cells(y, 1)

Sub tt2()
For y = 1 To 500
ligne = Sheets("feuil1").Cells(y, 1)
Sheets("feuil2").Cells(ligne, 1) = Sheets("feuil1").Cells(y, 2)
Next
End Sub

docm

"pierre-yves" a écrit dans le message news:
428a796d$0$25035$
bonsoir
quelqu'un connait une solution pour faire :

par exemple :

si
dans : feuille 1 : cellule A1 : nombre X
alors
mettre dans feuille 2 : cellule AX : valeur de feuille 1
cellule

B1



en espérant avoir été clair

merci de vos réponses