Copier des données sur la premiere cellule vide d'une colonne

[pascal82]

Bonjour à toutes et à tous,

Suite à un test, je cherche à copier des données (BO2 :BO7) sur la premiere cellule vide de la colonne BQ. Il y surement d’autres fonctions qui ne fonctionnent pas, mais je commence par celle-ci.

If Range("BP1").Value = Range("BN1").Value Then desti.Range("BQ1").Resize(UBound(t)) = source.Range([BO2], [BO7].End(3)).Value

le code en entier

Sub test246()

Dim A, B, C, D, E, F
Dim heure As Long, minute As Long, seconde As Long
Dim Deb As Currency
Deb = Timer
Application.ScreenUpdating = False
'''''''''''''''''''''''''''''''''''''initialise les données
Range("BO1:BU65536").ClearContents

For A = 0.5 To 0.55 Step 0.01
For B = 0.5 To 0.55 Step 0.01
For C = 0.5 To 0.55 Step 0.01
For D = 0.5 To 0.55 Step 0.01
For E = 0.5 To 0.55 Step 0.01
For F = 0.5 To 0.55 Step 0.01

    Range("BO2").Value = A
    Range("BO3").Value = B
    Range("BO4").Value = C
    Range("BO5").Value = D
    Range("BO6").Value = E
    Range("BO7").Value = F
'''''''''''''''''''''''''''''''''''''test
'si BN1=BP1 alors copie de BY2:BY7 vers la premiere cellule vide de la colonne CA
       If Range("BN1").Value = Range("BP1").Value Then desti.Range("BQ2").Resize(UBound(t)) = source.Range([BO2], [BO7].End(3)).Value
'si BN1>BP1 alors on efface la colonne BQ
       If Range("BN1").Value > Range("BP1").Value Then Range("BQ2:BQ65536").ClearContents
'si BN1>BP1 alors on copie BO2:BO7 vers BQ2:BQ7
       If Range("BN1").Value > Range("BP1").Value Then Range("BQ2:BQ7").Value = Range("BO2:BO7").Value
'si BN1>BP1 alors on copie BN1 vers BP1
       If Range("BN1").Value > Range("BP1").Value Then Range("BP1").Value = Range("BN1").Value

      Next F
      Next E
      Next D
      Next C
      Next B
      Next A
      
  heure = (Timer - Deb) \ 3600
  minute = ((Timer - Deb) - heure * 3600) \ 60
  seconde = (Timer - Deb) - (heure * 3600) - minute * 60
  Range("BS1") = heure & " : " & minute & ":" & seconde
      '  ActiveWorkbook.Save
             Application.ScreenUpdating = True
End Sub

Merci

 

[Pierrot93]

Re : Copier des données sur la premiere cellule vide d'une colonne

Bonsoir,

pas sûr d'avoir bien compris ta demande, mais pour selectionner la première cellule vide après la dernière cellule renseignée d'une colonne, regarde peut être ceci :

Range("A65536").End(xlUp)(2).Select

bonne soirée
@+

 

[pascal82]

Re : Copier des données sur la premiere cellule vide d'une colonne

Bonjour Pierrot93,

Merci par la rapidité.
La recherche de la cellule vide c’est ok par contre il ne colle que la première cellule et non les 5, il manque un truc.
J'ai testé:

If Range("BN1").Value = Range("BP1").Value Then Range("BQ65536").End(xlUp)(2).Value = Range("BO2:BO7").Value

Cordialement

 

[papypog]

Re : Copier des données sur la premiere cellule vide d'une colonne

Bonjour,

Ci-dessous un code qui fonctionne chez moi.

Selection.Copy
Sheets("Imprim").Select (Imprim étant la feuille que recueille les données)
Numcolonne = 1
Numligne = 11
Cells(Numligne, Numcolonne).Select
While ActiveCell.Value > 0
Numligne = (Numligne + 1)
Cells(Numligne, Numcolonne).Select
Wend
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

 

[Pierrot93]

Re : Copier des données sur la premiere cellule vide d'une colonne

Re,

modifie comme suit :

Range("BQ65536").End(xlUp)(2).Resize(6, 1).Value

 

[pascal82]

Résolu : Copier des données sur la premiere cellule vide d'une colonne

C'est parfait, Un grand merci à vous.

Cordialement