Afficher une cellule si elle est plus grande que zéro
Résolu/Fermé
RachelMartel
Messages postés
435
Date d'inscription
mardi 14 mai 2013
Statut
Membre
Dernière intervention
24 mars 2021
-
23 janv. 2015 à 17:58
RachelMartel Messages postés 435 Date d'inscription mardi 14 mai 2013 Statut Membre Dernière intervention 24 mars 2021 - 26 janv. 2015 à 23:44
RachelMartel Messages postés 435 Date d'inscription mardi 14 mai 2013 Statut Membre Dernière intervention 24 mars 2021 - 26 janv. 2015 à 23:44
A voir également:
- Afficher une cellule si elle est plus grande que zéro
- Remettre a zero un pc - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel si couleur cellule alors ✓ - Forum Excel
1 réponse
via55
Messages postés
14403
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
24 avril 2024
2 703
23 janv. 2015 à 18:24
23 janv. 2015 à 18:24
Bonsoir
Avec une petite macro
Faire ALt+F11 pour ouvrir l'éditeur VBA puis onglet Insertion et Module, copier et coller la macro suivante dans page vierge puis fermer l'éditeur
Pour lancer la macro : Onglet Developpeur puis Macro Selectionner la macro et Executer
Cdlmnt
Avec une petite macro
Faire ALt+F11 pour ouvrir l'éditeur VBA puis onglet Insertion et Module, copier et coller la macro suivante dans page vierge puis fermer l'éditeur
Sub transfert()
For y = 3 To 9 'boucle sur colonnes 3 à 9
For x = 16 To 23 ' boucle sur lignes 16 à 23
If Sheets(1).Cells(x, y) > 0 Then ' si valeur de la cellule en x y de la 1ere feuille du classeurest sup à 0
lg = lg + 1' incremente la variable pour la ligne de 1
Sheets(2).Range("A" & lg) = Sheets(1).Cells(x, y) ' copie la valeur en ligne A lg de la 2eme feuille
End If
Next x
Next y
End Sub
Pour lancer la macro : Onglet Developpeur puis Macro Selectionner la macro et Executer
Cdlmnt
25 janv. 2015 à 20:41
Merci beaucoup, je vais la tester cette semaine au travail et je vous reviens!
Bonne journée!
Modifié par RachelMartel le 26/01/2015 à 20:30
26 janv. 2015 à 20:29
En début de macro tu déclare pour lg la valeur que tu veux comme ligne précédent la 1ere où commencer à copier, dans ton cas
lg=16 (à mettre avant le premier For)
Cdlmnt
26 janv. 2015 à 22:53
Sheets(2).Range("A" & 16 + lg) = Sheets(1).Cells(x, y)
26 janv. 2015 à 23:44