Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

tester si valeur 0 et copier des données sur une autre feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion alkali
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

alkali

Guest
Bonjour,

Je voudrais créer une macro qui teste si la valeur de chaque cellule d'une colonne est "0".
Si cette valeur est "0", alors copier les champs liés à cette cellule sur une autre feuille en les insérant à la dernière ligne vide.

Casse tête chinois.

Merci
 
Trier par date Trier par votes
Re : tester si valeur 0 et copier des données sur une autre feuille

Bonjour,
Je ne vois pas ce que tu veux exactement
voila une macro qui par de A50 et remonte jusque 1
si Ax=0
écris ton code
le reste fonctionne automatiquement.
sub test()
Range("A50").Select
For i = 49 To 1 Step -1
If ActiveCell.Value = 0 Then

Ajouter le code.....pour réaliser ton action
ActiveCell.Offset(-1, 0).Select
Else
ActiveCell.Offset(-1, 0).Select
End If
Next i 'ici on passe à au suivant
and sub

Ajoute un fichier à ton message c'est plus simple.

Laurent
 
Vote positif 0 Vote négatif
Re : tester si valeur 0 et copier des données sur une autre feuille

Merci je vais essayer ceci.

Mais comment copier sur la première ligne vide d'une colonne?

Je veux copier les champs liés à une cellule de valeur "0" qui se trouve dans une colonne puis les copier en fin de liste d'une autre colonne. Mais je ne sais pas comment

Merci encore.


Voici un exemple

feuille 2

aaa 1 ggggg 213
bbb 2 fffffff 487
ccc 0 0 0 ligne à recopier dans feuille 1 à la 1ere ligne vide
ddd 5 dddd 254
fffff 8 jjjjjjj 732
rrrrr 0 0 0 ligne à recopier dans feuille 1 à la 1ere ligne vide
ssss 4 mmm 784


Feuille 1

aaa 1 ggggg 213
bbb 2 fffffff 487
ddd 5 dddd 254
fffff 8 jjjjjjj 732
ssss 4 mmm 784
A copier ici
puis ici
etc...


merci
 
Vote positif 0 Vote négatif
Re : tester si valeur 0 et copier des données sur une autre feuille

Bonjour,

regarde le code cdi-dessous :
Code: 
Option Explicit
Sub test()
Dim c As Range
For Each c In Feuil1.Range("A2:A" & Feuil1.Range("A65536").End(xlUp).Row)
    If c.Text = 0 Then c.EntireRow.Copy Feuil2.Range("A65536").End(xlUp)(2)
Next c
End Sub

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
197
berru76
B
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
334
Marie.
M
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
455
juju91
J
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
415
Bibinaire
B
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
388
mapomme
Q
  • Résolu(e)
XL 2021 Ne pas imprimer une feuille si cellule de reference est égale a 0
Réponses
8
Affichages
228
job75
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
297
mapomme
Y
  • Résolu(e)
Microsoft 365 ContIf et myRange sur une feuille donnée
Réponses
2
Affichages
149
youguybass
Y
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
513
sousou
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
695
MANU64360
M
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
560
akm
A
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
357
Diane272727
D
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
677
Phil69970
S
  • Question Question
XL 2021 Automatisation et synthèse données
Réponses
1
Affichages
318
Dand87
D
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
276
PR.
P
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
521
TooFatBoy
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
219
Dudu2
S
  • Résolu(e)
XL 2016 Avis / Aide réécriture code
2 3
Réponses
38
Affichages
1 K
safranien
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…