XL 2016 Donnée à coté d'une cellule vide

[robertduval]

Bonjour je souhaite m'afficher sur une autre feuille le contenu des 6 cellules ,colonne A, au dessus d'une cellule vide mais en fait celles qui sont en face en colonne B, désolé pour l'explication......j'ai mis un fichier en pj.........j'ai essayé avec ESTVIDE ça fonctionne pas Merci

 

[soan]

Bonjour Robert,

ton fichier en retour.

* note que "Feuil2" est entièrement vide

* va sur "Feuil1", et fais Ctrl e

Sub Essai()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim n&, k&: n = Cells(Rows.Count, 1).End(3).Row
  k = n - 5: If k <= 0 Then Exit Sub
  With Worksheets("Feuil2")
    Cells(k, 2).Resize(6).Copy .[A1]: .Select
  End With
End Sub

soan

 

[JHA]

Bonjour à tous,

Peut-être une solution par formule avec la fonction DECALER()

=SIERREUR(DECALER(INDIRECT("Feuil1!$A"&EQUIV(9^9;Feuil1!A:A;1));LIGNES($1:1)-6;1);"")

Copier vers le bas

JHA

 

[robertduval]

Merci a vous 2 exactement ça

 

[robertduval]

Bonjour à tous,

Peut-être une solution par formule avec la fonction DECALER()

=SIERREUR(DECALER(INDIRECT("Feuil1!$A"&EQUIV(9^9;Feuil1!A:A;1));LIGNES($1:1)-6;1);"")

Copier vers le bas

JHA

Merci ta formule fonctionne mais que sur des nombres quand je met du texte en colonne a il ne m'affiche rien aurais tu la solution....d'avance merci

 

[JHA]

Bonjour à tous

Pour le texte uniquement, change dans la formule 9^9 par "zzz"

JHA

 

[robertduval]

Bonjour à tous

Pour le texte uniquement, change dans la formule 9^9 par "zzz"

JHA

Bonjour ça fonctionne nickel par contre j'aimerais si possible avoir la sélection des colonnes car dans mon classeur j'ai plusieurs feuilles ou j'ai une colonne vide avec juste la cellule tout en haut d'écrite voir fichier joint, merci encore

 

[soan]

Bonsoir Robert,

voici une 2ème version.

* note que "Feuil2" est entièrement vide

* va sur "Feuil1", et fais Ctrl e

Option Explicit

Dim m&, j&

Private Sub Job(i%)
  Dim n&, k&, h As Byte
  n = Cells(m, i).End(3).Row: k = n - 5: h = 6
  If k < 1 Then
    If IsEmpty(Cells(1, i)) Then Exit Sub
    k = 1: h = n
  End If
  With Worksheets("Feuil2")
    Cells(k, i).Resize(h).Copy .Cells(j, 2)
    j = j + h
  End With
End Sub

Sub Essai()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim d%: d = Cells(1, Columns.Count).End(1).Column: If d = 1 Then Exit Sub
  Dim i%: m = Rows.Count: j = 1: Application.ScreenUpdating = 0
  For i = 2 To d: Job i: Next i: Worksheets("Feuil2").Select
End Sub

soan

 

[robertduval]

Merci a vous 2