recopie automatique

[BRUNO62]

Bonjour,

J'ai besoin d'aide.
En pièce jointe ma demande.
Avez vous une idée ?
Par avance, merci.
Bonne journée.
A+

 

[ROGER2327]

Re : recopie automatique

Bonjour BRUNO62

Placez ce code dans le module de la feuille Feuil1 :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oPlg, oCel As Range
   Set oPlg = Intersect(Target, Columns(5))
   If Not oPlg Is Nothing Then
      For Each oCel In oPlg.Cells
         If IsEmpty(oCel.Offset(0, 1)) Then oCel.Offset(0, 1).Value = oCel.Value
      Next
   End If
End Sub[/B][/COLOR]

La saisie d'une donnée dans la colonne E sera transmise à la cellule voisine si celle-ci n'est pas vide.​

ROGER2327
#4112

Jeudi 5 Absolu 138 (Saint Bardamu, voyageur, SQ)
26 Fructidor An CCXVIII
2010-W36-7T08:01:32Z

 

[Staple1600]

Re : recopie automatique

Bonjour



Un solution possible

Sélectionnes la cellule E1 puis lances la macro ci-dessous

Sub a()
Dim r As Range, c As Range
Set r = ActiveCell.CurrentRegion.Columns(2)
With r
    .SpecialCells(4).FormulaR1C1 = "=RC[-1]"
    .Value = .Value
End With
End Sub

edition: pas rafraichi avant de poster 😱
bonjour ROGER2327, Jean-Marcel

 

[BRUNO62]

Re : recopie automatique

Bonsoir ROGER2327, Jean-Marcel, Staple1600

Merci, pour vos réponses mais elles ne correspondent pas à mes attentes.

Lorsque certaines cellules de la colonne F sont vides, je souhaite que la lettre ou le nombre apparant dans la colonne E se copie automatiquement dans la cellule de droite vide (colonne F).
Y aurait-il une solution? 😕

Par avance merci
A+

 

[Staple1600]

Re : recopie automatique

Re


La solution de ROGER2327 fonctionne parfaitement. (les autres aussi d'ailleurs)
(et se rapproche le plus de ce que tu cherches à faire)

Et tu es obligé de faire "une action" : soit une saisie dans une cellule (solutions de Roger ou de Jean-Marcel), soit lancer une macro (ma solution)

 

[david84]

Re : recopie automatique

Bonsoir,
ci-joint proposition formule basée sur le fichier de Jean-Marcel, sous réserve d'avoir compris ta demande.

=SI(ET(D2="";E2<>"");E2;SI(ET(D2<>"";E2<>"");E2;SI(ET(D2<>"";E2="");D2)))

à tirer vers la droite et le bas.

Concernant le VBA, peut-on m'expliquer concrètement ce passage et à quoi sert-il et dans quel cadre l'on s'en sert (même si je pense en comprendre le sens, à savoir si la cellule cible n'est pas vide, mais alors pourquoi pas simplement if target<>"") ?

If Not Intersect([E2:E100], Target) Is Nothing

Merci

 

[BRUNO62]

Re : recopie automatique

Bonsoir,

Merci à vous, pour les réponses qui m'ont été d'une grande utilité.
A+

 

[ROGER2327]

Re : recopie automatique

Bonsoir à tous

(...)
Concernant le VBA, peut-on m'expliquer concrètement ce passage et à quoi sert-il et dans quel cadre l'on s'en sert (même si je pense en comprendre le sens, à savoir si la cellule cible n'est pas vide, mais alors pourquoi pas simplement if target<>"") ?
(...)

C'est nettement plus subtil que ça !

[COLOR="DarkSlateGray"][B]Intersect([E1:E30], Target)[/B][/COLOR]

est un objet polymorphe dont la description complète est assez longue. Aussi me contenterai-je de joindre un classeur dans lequel vous pourrez observer vous-même différentes formes possible de cet objet : il vous suffira de sélectionner une ou plusieurs cellules dans la zone colorée pour obtenir quelques renseignements. Vous constaterez que les réponses sont variées...

Bon courage !
​

ROGER2327
#4116

Jeudi 5 Absolu 138 (Saint Bardamu, voyageur, SQ)
26 Fructidor An CCXVIII
2010-W36-7T23:05:59Z

 

[david84]

Re : recopie automatique

Re,
merci beaucoup Roger pour ce fichier explicatif.
L'intérêt est-il donc de délimiter une plage de cellules particulière où la macro sera active, et ce quel que soit le type de valeur contenu dans les cellules de cette plage (sauf à le spécifier en déterminant préalablement ces valeurs) ?
2 petites précisions SVP :
pourquoi toutes les cellules en dehors de E1:E30 affichent "9=vb object", et ce quel que soit le type de valeur qu'elles contiennent ?
Pourquoi les cellules E21 à E23 affichent "8=vb string" alors qu'elles sont vides et avec un format de cellule standard ?
Je regarde plus en détail et je reviens si j'ai d'autres questions.
Cordialement

 

[ROGER2327]

Re : recopie automatique

Re...

Excusez-moi pour le retard, votre message a échappé à mon attention.

(...)
L'intérêt est-il donc de délimiter une plage de cellules particulière où la macro sera active, et ce quel que soit le type de valeur contenu dans les cellules de cette plage (sauf à le spécifier en déterminant préalablement ces valeurs) ?
(...)

À peu près. Précisément, Intersect(Plage, Target) est :

• soit une plage formée des cellules communes à Plage et Target ;
• soit l'objet vide (qui n'est pas une plage !) si Plage et Target ne possèdent aucune cellule commune.

(...)
pourquoi toutes les cellules en dehors de E1:E30 affichent "9=vb object", et ce quel que soit le type de valeur qu'elles contiennent ?
(...)

Parce que l'objet traité par la procédure est Intersect([E1:E30], Target) et que,dès lors que Target ne contient aucune cellule de [E1:E30], Intersect([E1:E30], Target) est l'objet vide, qui par définition ne contient rien...

(...)
Pourquoi les cellules E21 à E23 affichent "8=vb string" alors qu'elles sont vides et avec un format de cellule standard ?
(...)

E22 contient la formule ="" ; par conséquent sa valeur est la chaîne vide (""), qui une chaîne...

E21 contient le résultat de la manipulation suivante :
- copier E22 ;
- sélectionner E21 ;
- coller spécial valeurs.
Donc la valeur E21 est identique à celle de E22.

E23 contient le caractère ' (=CAR(39)) qui fait qu'Excel considère que le contenu de la cellule doit être considéré comme du texte.

Voilà.

Vous remarquerez aussi que, contrairement aux apparences, la cellule E19 contient un nombre et la cellule 20 du texte...​

ROGER2327
#4140

Mardi 10 Absolu 138 (Dilution, V)
1er Sanculottide An CCXVIII
2010-W37-5T17:30:43Z