Microsoft 365 Copie valeur vba

[achraf26]

Bonjour,
j'ai mis ce code car je voulais copier seulement la valeur mentionné en cellule B6 (c'est un alphabet soit "F" "E" "O")
dans la 1er cellule vide de la colonne B à partir de 9é Ligne, mais quand je met Range("B6").Copy. Value ça ne fonctionne pas
Merci à vous

Sub AF()
If [B9] = "" Then
Else
Range("B6").Copy Destination:=Range("b" & Rows.Count).End(xlUp)(2)
End If
End Sub

 

[Phil69970]

Bonjour @achraf26

Avec un fichier c'est toujours mieux.
Un essai en fonction de ce que j'ai compris.....

Sub AF()
Dim Derlig&
Derlig = Range("B" & Rows.Count).End(xlUp).Row + 1
If Derlig > 8 Then
    Range("B" & Derlig) = Range("B6").Value
End If
End Sub

Merci de ton retour

 

[achraf26]

Bonjour @achraf26

Avec un fichier c'est toujours mieux.
Un essai en fonction de ce que j'ai compris.....

Sub AF()
Dim Derlig&
Derlig = Range("B" & Rows.Count).End(xlUp).Row + 1
If Derlig > 8 Then
    Range("B" & Derlig) = Range("B6").Value
End If
End Sub

Merci de ton retour

Bonjour Phil,
Merci pour la réponse rapide, tu m'as sauvé.
entre temps quand la cellule B6 mentionne un alphabet c'est possible d'afficher que les lignes dont la colonne B Contient cet alphabet et si c'est vide on voit tous les lignes ?

 

[Phil69970]

Re

Avec un fichier c'est toujours mieux.

Avec l'explication de ce que tu veux

 

[achraf26]

Re


Avec l'explication de ce que tu veux

Re Merci pour votre aide.
Ci joint le fichier

 

[Phil69970]

@achraf26

Je te propose ce fichier

Le fichier m'a permis de voir que tu as un tableau structuré !!!
J'ai donc modifié le code en conséquence

Merci de ton retour

 

[achraf26]

@achraf26

Je te propose ce fichier

Le fichier m'a permis de voir que tu as un tableau structuré !!!
J'ai donc modifié le code en conséquence

Merci de ton retour

je comprend pas, pourquoi

@achraf26

Je te propose ce fichier

Le fichier m'a permis de voir que tu as un tableau structuré !!!
J'ai donc modifié le code en conséquence

Merci de ton retour

re,
Je ne sais pas voir les codes vba vu que Microsoft a bloque l'exécution.
si je peux avoir juste le code de ce filtre, je sais me débrouiller pour le reste
Bien à vous

 

[Phil69970]

@achraf26

Dans un module tu copies ce code à la place de ton code

Sub Ajout()
With Sheets("Feuil1").ListObjects("Tableau2").ListRows.Add
      .Range(1, 1) = Range("B6")
End With
End Sub

Sub Filtre()
If Range("B6") <> "" Then
    Range("Tableau2[[#Headers],[Dates]]").AutoFilter
    Range("Tableau2").AutoFilter Field:=1, Criteria1:=Range("B6")
Else
    SupprimeFiltre
End If
End Sub

Sub SupprimeFiltre()
If ActiveSheet.FilterMode = True Then
    Range("Tableau2[[#Headers],[Dates]]").AutoFilter
End If
End Sub