A voir également:
- Excel bilan
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide
10 réponses
Bonjour,
J'ai un souci... impossible d'afficher la page que tu proposes. Difficile de pouvoir te dépanner.
J'ai un souci... impossible d'afficher la page que tu proposes. Difficile de pouvoir te dépanner.
Comme je le dis chaque fois : écrire le mot "automatiquement" dans une question implique qu'il faut passer par une macro : as-tu déjà utilisé VBA ?
oui, je l'utilise déjà pour mes cases à cocher mais j'ai un niveau assez faible.
Que me proposes-tu ?
Que me proposes-tu ?
Je viens de réessayer le lien fonctionne bien ...
Je t'en redonne un autre pour voir :
https://www.cjoint.com/?AHxjRQJGJkO
Je t'en redonne un autre pour voir :
https://www.cjoint.com/?AHxjRQJGJkO
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En gros,
il faudrait que dans une cellule en fin de feuille, il m'affiche les résultat des cases présélectionnées seulement si celle-ci sont remplies (ex remplacer phares).
si la case précédente est vide il ne doit pas en tenir compte.
Et que la mise en page se fasse bien : passer une ligne après chaque résultat
sans passer par la fusion de cellule.
il faudrait que dans une cellule en fin de feuille, il m'affiche les résultat des cases présélectionnées seulement si celle-ci sont remplies (ex remplacer phares).
si la case précédente est vide il ne doit pas en tenir compte.
Et que la mise en page se fasse bien : passer une ligne après chaque résultat
sans passer par la fusion de cellule.
après nombre de recherches , ceci semble aller :
Sub copie()
Dim cellule As Range
Dim Ligne As String
For Each cellule In Worksheets("Feuil1").Range("A1:A200")
If Not IsEmpty(cellule) Then
If IsEmpty(Worksheets("Feuil1").Range("B65536").End(xlUp)) Then
Worksheets("Feuil1").Range("B65536").End(xlUp).Select
cellule.Copy Worksheets("Feuil1").Range("B65536").End(xlUp)
Else
Ligne = Worksheets("Feuil1").Range("B65536").End(xlUp).Row
Range("B" & Ligne + 1).Select
cellule.Copy Worksheets("Feuil1").Range("B" & Ligne + 1)
End If
End If
Next cellule
End Sub
malheureusement, en bas de page, ce sont les formules de ma colonne A qui s'affichent et non le résultat (en texte)
Comment faire ?
Sub copie()
Dim cellule As Range
Dim Ligne As String
For Each cellule In Worksheets("Feuil1").Range("A1:A200")
If Not IsEmpty(cellule) Then
If IsEmpty(Worksheets("Feuil1").Range("B65536").End(xlUp)) Then
Worksheets("Feuil1").Range("B65536").End(xlUp).Select
cellule.Copy Worksheets("Feuil1").Range("B65536").End(xlUp)
Else
Ligne = Worksheets("Feuil1").Range("B65536").End(xlUp).Row
Range("B" & Ligne + 1).Select
cellule.Copy Worksheets("Feuil1").Range("B" & Ligne + 1)
End If
End If
Next cellule
End Sub
malheureusement, en bas de page, ce sont les formules de ma colonne A qui s'affichent et non le résultat (en texte)
Comment faire ?
Bonjour
enregistre ton fichier de la façon suivante ( enregistrer sous et tu choisis version 2003 xls ) apres quoi tu le poste ici comme tu l'a fait
marc
enregistre ton fichier de la façon suivante ( enregistrer sous et tu choisis version 2003 xls ) apres quoi tu le poste ici comme tu l'a fait
marc
